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PREFACE 



This Program Logic Manual (PLM) is a guide 
to the IBM Disk Operating System/Virtual 
Storage Extended (DOS/VSE) , Linkage Editor 
program. It supplements the program 
listings by providing descriptive texts and 
flowcharts. 

For overall system control logic 
description, this PLM is to be used with 
six other PLMs: 

B2S/VSE Supervisor Logic, SX33-8551 

£25/ VS E Error Recovery and fiecor di ng 
liinliSnII'iiiaisT SI 3 3-85S2 

£2§/VSE Logical Transients and Dumj) Phases 
ii!ii~SY33-8553 

DOS/VSE System Serviceability Aids Logic, 
£733-8554 

J22S/VSE Initial Program Load and Job 
£2B£iil Loqi~SY33-8555 

DOS/YSg Librarian Logic, SY33-8557 

Publications that aid in the use of this 
manual are: 

2§ZI£# fiOS/VSE and VM/370 Assembler 
LanguageT GC 3 3 -40 10 

§MiS§ to DOS/VSE Assembler, GC33-4024 

gOS/VSE System Control Statements, 
GC33-5376 

£OS/VSE Operating Procedures, GC33-5378 

Publications related to the subject of this 
manual are: 

S2S/VSE System Mana3§5§l£ §ili<l§' GC33-5371 
DOS/VSE Data Management Concepts, GC24-5138 



SOS^VSE Macro User^s Guide, GC24-5139 

DOS/VSE Macro, Reference, GC24-5140 

£OS/VSE Sis tern Generation, GC33-5377 

&25/VSE Messages, GC33-5379 

DOS/VSE LIOCS Volume J, SY33-8559 

Titles and abstracts of the other related 
publications are listed in the IBM 
Sx§tem/370 Bibliography:, GC20-0001. 

PUBLICATION ORGANIZATION 



This manual consists ot five major 
sections: 

• Introduction to the Linkage Editor. 

• Method of Operation, describing the 
program function, the structure of 
object modules as input, I/O flow and 
storage layout. 

• Program Organization, describing in 
detail the library record formats, the 
control flow and various features ot 
the program. 

• General and detailed charts showing the 
logic flow of the linkage editor 
program. General charts are identified 
by two-digit numerals such as 01, 
detailed flowcharts by letters such as 
AA through ZZ. 

• Appendixes which include a label list, 
phase-to-module and message cross 
references for use in analyzing program 
errors, a brief description ot the 
system residence organization, and the 
linkage editor External Symbol 
Dictionary (ESD) processing and map. 



In this publication, system and component names as listed below 
should be read as indicated: 



System/component name 
DOS/VS 



To be read as 

DOS/VSE (see Note below) 



Note: Unless that name explicitly refers to DOS/VS Release 34 or 
an earlier DOS/VS release. 

L ..... .............. .. ... ...... ........... ... 
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INTRODUCTION 



All programs to be executed in the DOS/VS 
environment must be link-edited and stored 
in the core image library before they can 
be executed. The core image library is 
either on SYSHES (the system core image 
library) or on SYSCLB (a private core image 
library) . The linkage editor program 
accomplishes the link edit function 
operating in one of three modes: 

J. Catalog mode. An object module is 

link-edited and permanently stored in 
the core image library. The core image 
directory of cataloged phases is 
updated in this mode of operation. 

2. load and execute mode. An object 
module is link-edited for temporary 
storage in the core image library and 
is if Mediately executed. 

j* Assemble and execute mode. A source 
module is assembled or compiled. The 
object module (output) is link-edited 
^ or temporary storage in the core image 
library and is immediately executed. 

Note: When operating in catalog mode, the 
core image directory for linked phases is 
updated. A reenterable program can be 
cataloged as eligible to be loaded into the 



shared virtual area (SVA eligible) . Phases 
resident in the SVA can be shared 
concurrently by programs running in 
different partitions. 

Job control calls the linkage editor 
program when a // EXEC LNKEDT control 
statement is read. 

For updating the core image library 
directory, control is given to $MAINDIR. 
If OPTION CATAL was specified, the 
directory for cataloged phases is updated. 
If OPTION LINK was specified, the link area 
of the directory is updated. After either 
one of these functions is completed, 
control is returned to the linkage editor 
and then passed on to job control. 

The linkage editor program can run in 
either the background or a foreground 
partition. If it runs in the foreground, 
you must assign a private core image 
library (SYSCLB) . In the background 
partition, the linkage editor defaults to 
the system core image library if no private 
core image library is assigned. The 
linkage editor issues a diagnostic message 
and terminates abnormally when you assign 
the private core image library across 
partitions. 




Execution 
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PROGRAM FUNCTION 



The linkage editor prepares programs for 
execution on DOS/VS. Input for the linkage 
editor are the relocatable modules produced 
by the language translators. The linkage 
editor processes these modules into program 
phases which may be immediately executed or 
cataloged into the core image library. 

The linkage editor control cards direct the 
program to read an input module (s) and to 
form phases from the control section within 
the modules. Figure 1 shows how phases can 
be formed. The linkage editor relocates 
the origin of each control section in the 
phase , assigns each phase an area of 
storage and a transfer address, and 
modifies the contents of the address 
constants in the phase. 



phase definitions and the module ESD items. 
When complete, the table provides 
sufficient information for determining the 
location of each control section and for 
resolving any references between control 
sections . 



The module TXT items 
phase blocks. The R 
constants) are modif 
the text. A transfe 
for each phase. Unr 
constants will appea 
relocatable phases. 
The linkage editor w 
input phases retriev 
from the core image 
of this function is 
of an already link-e 
different core image 



are then built into 
LD items (address 
ied and inserted into 
r address- is determined 
esolved address 
r as zero RLD items in 

ill also accept as 
ed by the CSERV program 
library. The purpose 
to allow recataloging 
dited phase to a 
library. 



Sample of a 2-module input resulting in 
a 3-phase output 



Language Trans- 


Linkage Editor 


lator Output 


Output 


Module A 


Phase 1 


ESDs 




TXT-CSECTA 


CSECTA 


TXT-CSECTB 


CSECTB 


TXT-CSECTC 
RLDs 






Module B 


Phase 2 


ESDs 




TXT-CSECTD 


CSECTC 


TXT-CSECTE 


CSECTD 


TXT-CSECTF 


CSECTE 


TXT-CSECTG 
RLDS 








Phase 3 




CSECTF 




CSECTG 



L . , . J 

Figure 1. Example of a Module-Phase 
Relationship 



The relocation factor for each control 
section is determined and saved by building 
a table called the control dictionary. 
This table contains the linkage editor 



OBJECT MODULES AS INPUT 



The input to the linkage editor consists of 
object modules and linkage editor control 
cards. Each module is the output of a 
complete language translator run. It 
consists of dictionaries and text for one 
or more control sections. 

The dictionaries contain the information 
necessary for the linkage editor to resolve 
references between different modules. The 
text consists of the actual instructions 
and data fields of the module. 

Six card types can be produced, by the 
language translators or by the programmer, 
to form a module. They appear in the 
following order: 



Card Type | Definition 




External symbol dictionary 

Ignored by linkage editor 

Text 

Relocation list dictionary 

Replacement to text made 
by the programmer 

End of module 
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The external symbol dictionary contains 
control section definitions and intermodule 
references. When the linkage editor has 
the ESDs from all modules, it can relocate 
the sections and resolve the references. 
Five types of entries are defined in the 
control dictionary. 

ESP Ty£e Definition 



SD 



NX 



PC 



LD/LR 



ER 



Section definition: provides 
control section name, assembled 
origin and length, 
a named START or a 
a source module. 



Generated by 
named CSECT in 



Generated by Weak External 
Reference (WXTRN) , which has a 
function similar to EXTERN, 
except that WXTRN suppresses 
AUTOLINK. The linkage editor 
treats WX as an EB, NOAUTO. 

Private code: provides assembled 
origin and length for an unnamed 
control section. 

Label definition: specifies the 
assembled address and the 
associated SD of a label that may 
be referred to by another module. 
The LD entry is termed LR (label 
Reference) when the entry is 
matched to an ER entry. 

External reference: specifies the 
location of a reference made to 
another module. ER is generated 
by EXTRN or a V-type address 
constant in a source module. 



The relocation list dictionary identifies 
portions of text that must be modified on 
relocation (address constants) . 

When the linkage editor reads a module, it 
stores ESDs in its control dictionary, 
writes TXT and REP items in core image 
blocks in the library, and writes JBLD items 
on an RLD file. Each item that is 
identified by the language translators with 
an ESID number is re-identified by the 
linkage editor with a control dictionary 
number to avoid duplication of 
identification between modules. for the 
ESD processing, see Aj)£endix E. 



I/O FLOW 



The I/O flow for the linkage editor program 
consists of: 

• Input from: 

SYSLNK - the system link library 
SYSRLB - a private relocatable library 
SYSRES - the system relocatable 

library on SYSRES 
SYS001 - the I/O Workfile 

• Output to: 

SYSLST - the list device 
SYSLOG - the logging device 
SYSRES - the system CIL en SYSRES 
SYSCLB - a private core image library 



CM 



Common: indicates the amount of 
main storage to be reserved for 
common use by different phases. 
CM is generated by CCM in a 
source module. 
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Figure 2 shows the I/O flow of the linkage editor, 




SYSLNK 



SYS RES 
(System CI L) 
and/or 
SYSCLB 
(Private CI L) 




SYSRES 

(Syst.Reloc.Libr.) 

and/or 

SYSRLB 

(Private 

RelocLibr.) 



Do 




SYS001 
Workfile 




Figure 2. Linkage Editor I/O Flow 
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STORAGE LAYOUT 



Addresses in Col. "Start at approx." are relative to the beginning of 
partition. 



Start at 


Addressed 


approx. 


by 





IJBLNK 


19K 


IJBINL 




VCATND 


19K 


AWKARE 


2 OK 


RLDIBAB1 


22K 


RLDIBAR2 


2*JK 


I0AREA1 



Description 



26K-320 bytes 



26K 



28K 



29K 



30K 
♦ 176 

bytes 



FRMBUF 



FLNBUF 



LTMINE 



CDENT1 



Part of linkage editor permanent in 
storage 

INL-CSECT, used only during initialization, 
thereafter overlaid by I/O-areas 

Aligned on 1K 

I/O-area for core image lib 

Aligned on 2K (page-boundary) 

2 I/O-areas for reading directory of 

relocatable library (used alternately) 

I/O-area for reading from SYS001 

Aligned on 2K (page-boundary) 
Save-area for 1 record of a member in the 
relocatable library (handling spanned 
records: already read part of the record 
is moved before the part being read by a 
new read-command) 

I/O-area for reading member of relocatable 

library 

Also used as I/O-area during initialization 

(reading library descriptor records) 

I/O-area for reading from SYSLNK (default- 
size=1K, may be changed by user) 

Workarea (called Linkage Table) for 
processing ESD-numbers during processing 
an object module (i.e. only till the next 
END card) 

Will be overlaid by status-table when 
calling $LIBSTAT 

Workarea (called control dictionary) 

containing information about all phases 

and ESD-items. Size will vary, as big as 

necessary 

20 bytes for each ESD-item 

40 bytes for each phase 



Length 
approx. 

19K 



<4K 



1K 



2K 
2K 



0,5K 



320 
bytes 



2K 



1K or 
?K 

1200 
bytes 



13 

bytes 



30K + ? 



CTLDAD 



30K+? WRKMAI1 



Workarea (called stowtable) containing 

information about all phases as interface 

table for SMAINLIE or SMAINDIF. 

Size will vary, max. 2K 

12 bytes for control-information 

30 bytes for each phase 

Workarea used by SMAINDIR or SMAINDIF 
(approx. 24K, for exact value consult 
SMAINDIR or $«AINEIF) 



24K 



54K + ? 



END OF USED STORAGE 
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When calling SLIBSTAT overlaying at 

29K LTWINE Workarea (called status-table) 13 

as interface tor ULIESTAT bytes 

19K+ Workarea used by $LIESTAT (approx. 4K, UK 

16 bytes tor exact value consult SLIBSTAT) 
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PROGRAM ORGANIZATION 



LIBRARY FORMATS 



SYSLNK AND RELOCATABLE LIBRARIES 



The Linkage Editor reads data from SYSLNK in three different formats 
(format 1, 2 and 3) and from the Relocatable Library in a unique format 
(format 3) . 



Format 1 



-82 bytes - 



B1 



B2 



80 bytes 



Format 2 



^1 




322 bytes - 




^. 


B1 


B2 


80 bytes 


80 bytes 


80 bytes 


80 bytes 



Format 3 



-^ 




—322 bytes 




^- 


B1 


B2 


160 bytes 


1 60 bytes 



B1 (1 byte) — Number of records per block (either 1, 2 or 4) 

B2 (1 byte) - Record length (either 80 or 160) 

Figure 3. Block Format on SYSLNK and Relocatable Library 

Format 3 is the only one accepted from the Relocatable Library. (Refer 
to the DOS/VS Librarian Logic for a detailed description.) 

The Linkage Editor recognizes different item types (ESD, TXT, RLD, REP, 
ENE) . Only one item type can be contained in each individual record. 

The Linkage Editor control statements ACTION, INCLUDE, ENTRY and PHASE 
each occupy a complete block, i.e. only one record per block will be 
accepted. 

For a private relocatable library, Figure 4 shows an example of a 
logical block consisting of a set ot physical blocks. 
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1st byte 


= Number of logical records (1 in Linkage 
Editor control cards, 2 in 12-2-9 cards) 


< 


' ' 


' 


*no oyte 


— Record length (160 in all records) 




1 


160 


INCLUDE 


Unused 




1 


160 


PHASE 


Unused 


> 


2 


160 


ESD 


ESD 




2 


160 


ESD 


TXT 




2 


160 


TXT 


TXT 




2 


160 


TXT 


TXT 




2 


160 


TXT 


TXT 




2 


160 


TXT 


TXT 


/ 


2 


160 


TXT 


REP 


Unused 




2 


160 


REP 


Unused 


RLD 




2 


160 


RLD 


RLD 




2 


160 


RLD 


END 


Unused 




j 


jv j 





Linkage Editor 
Control Cards 



} 12-2-9 Cards 



2 Bytes 



160 Bytes 



160 Bytes 



322 Bytes 
Figure U. Example of a logical block on SYSRLB 



Physical Description of SYSLNK and 
Relocatable Libraries 



For CKD devices, the physical record is 
identical with the logical block. For FBA 
devices, this is not true. For the FBA 
records of SYSLNK, the SAM format is used. 
The control interval is 1K by default. The 
user may change this value by specifying a 
different size in the EXTENT card. 



-Control Interval - 



logical block 



logical block 



2. RDF 



1.RDF 



CIDF 



Figure 5. SAM-Forraat for SYSLNK on FBA 



CIDF Control interval definition field (4 
bytes; first two bytes containing 
address of free space, last two tytes 
containing length of free space) 

RDF Record definition field (3 bytes) 



1. RDF: 1. Byte: bit 1=0 only 1 block 

bit 1 = 1 (X'^O') 
more than one block in this 
C.I. 

last two bytes: length of 
block 

2. RDF: last two bytes: number ot 

blocks in this C.I. 

For the relocatable library on an FBA 
device, no special format is used. The 
first logical block of a member starts on a 
physical block boundary. The next logical 
blocks are written sequentially, regardless 
of 'physical block 1 boundaries ("spanned 
records", i.e. part of a logical may be in 
one physical block and the rest of it in 
the next physical block) . 



-physical block - 



-physical block - 



♦lci|.block-4^lpg.block-4^lc^.block-»4^log.block-^|^log.block^ 

Figure 6. Spanned records for SYSRLB on 
FBA 
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CORE IMAGE LIBRARY 



CONTROL FLOW 



The logical record of the core image 
library has a size of 102*4 bytes. It 
contains executable code and at the end of 
the phase some RLD information, whenever 
the phase is relocatable. For CKD devices, 
the records are unblocked and the physical 
record is the same as the logical record. 
For FBA devices with a blocksize of 512 
bytes, the unit-of-transf er will always he 
two physical blocks = 1024 = one logical 
record. 



WORKFILE SYS001 



The linkage editor is a single phase 
program divided into ten CSECTs. The CSECT 
names and their functions are the 
following: 

IJEINL Entry point tor calling program, 
used for initialization and 
processing ACTION cards (afterwards 
overlaid by I/O-areas) , (Chart 01). 

IJBLNK Contains subroutines and constants, 
besides subroutine ALNKOF, which 
reads input and gives control to 
the appropriate CSECT (Chart 02) . 
See also the chapter on 
subroutines. 



The logical record for the workfile SYS00 1 
has a size of 240 bytes. In the first 16 
bytes, it contains the standard information 
of a RLD card, in the rest, it contains the 
variable information of four RLD cards. For 
CKD devices, the records are unblocked and 
the physical record is the same as the 
logical record. For FBA devices, two 
logical records are blocked together in one 
physical block. 



-physical block - 



logical record 1 



logical record 2 



unused 



Figure 7. Blocked records for SYS001 on 
FEA 



IJBFIN Reads input, if SYSLNK or a 

Relocatable Library is on FBA 
(Chart 03) . 

IJEESD Processes ESD-cards (Charts 04, 05). 

IJEOTH Processes TXT, REP, RLD, END-cards 
(Chart 06) . 

IJBSCN Processes INCLUDE, PHASE, ENTRY 
cards (Chart 07) • 

IJECTL Post-processes PHASE, ENTRY cards 
(Chart 08). 

After ENTRY-card: 

IJBMAP Prints linkage editor map (Chart 
09) (Figure 19) . 

IJBRLD Processes RLD-items read from 

SYS001 (written by IJBOTH) (Charts 
10, 11) . 

IJBCAT Updates directory of Core Image 
Library (calling SMAINDIR or 
MAINDIF) . Prints status report 
(calling SLIBSTAT) , returns to 
caller (Chart 12) . 
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Figure 8 shows how these CSECTS are connected in the program. 




10-11 



Notes: The boxes show the CSECT names without 
the common prefix IJB. 
Numbers adjacent to boxes point to the re- 
spective general chart (s). 

Figure 8. Linkage Editor Control Flow 
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£ONTjK)i DICTIONARY (CD) 



The control dictionary is an internal 
linkage editor table used to store phase 
and external symbol dictionary (ESD) 
information. All information necessary for 
relocation is contained in the control 
dictionary. 

The control dictionary is composed of a 
variable number of 20- and 40-byte entries. 
Each phase entry is *40 bytes long and is 
handled as if it consisted of two 20-fcyte 



entries by the routines scanning the 
control dictionary (except tor when it is 
scanned for a section definition entry) . 
All other types of entries are 20 bytes 
long. 

The control dictionary starts on the first 
fullword boundary after the linkage table. 
Location CDENTI contains the address of the 
first entry. Location CTLDAC contains the 
address of the last entry in the control 
dictionary. Refer to Figure 9 for the 
format of the control dictionary entries. 
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FORMAT OF CD ENTRIES 
Layout of Control Dictionary entries for ESD items 



Type of ESD item: 

(see section 'Object Modules as Input' above^ 



| — NAMED 




r— ESDTYPD 


















| — ASSORGD 
















RELFACD 


1 — PHNUMD 





















* 


•iil^P^I^-l^^ 






^^^^^^^Hl 









SD - section definition 

or 

PC - private code 



8 9 



12 



16 



1 — NAMED 


i — ESDTYPD 












i — LNGTHD 


i — RELFACD 




:?fti-8 










^^^^^^l^lIIIII^^l^^^^^-^II^^IIBI^^^Il^Pi 












'■- 













CM - common storage 



8 9 



12 



1 — NAMED 


| ESDTYPD 
















r— ASSORGD 










I — CSNUMD 


i — SWITC 






















: . + •;•.•.:. •'•• : ' : •:'. 










:;"VJ-;': -"^ 














Z. .:. . : ... b. • .:■..■..:.. .&•, '. ,/; .-. I .:.•; i... ■,... ...'... ,..: •...;. ' • •' • • . . 







NAMED 



8 9 
— ESDTYPD 



14 



PHNUMED 



18 



SWITCHD 




1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 

Byte 1 9 is reserved for future use. 

Figure 9. Format of Control Dictionary Entries (Part 1 or 2) 



LD - label definition 

or 

LR - label record 



ER - external reference 

or 

WX - weak external reference 
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Layout of Control Dictionary entries for a phase 



1 — • PHNAMED 


1 — ESDTYPED 












I — ORPHDAD 


1 — NOBLOKD 










1 — NOBYTED 












1 — RLDIT 


iHBHHHHi 


liii ^^^^^^^^^^^^B 








^^^P^^^^^^^^B 




^^l^^^i^^^^PW^PiiWil 


: : 







1 2 3 4 5 



8 9 10 11 12 13 14 15 16 17 18 19 



• — ORPHRGD 


1 — NXPHRGD 




TRFRADD 


LINKSTRD* 


|— RLDB 


LCKD 

1 — P 


* 
>HTYF 


p; • 




HBNHHi 











20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 



Byte 39 is reserved for future use. 

*Only used for relocatable phases. Otherwise the content is zero. 

Figure 9. Format or Control Dictionary Entries (Part 2 ot 2) 



USE OF CD ENTRY FIELDS 



This CD Field 



Contains 



Each co 
built i 
called 
control 
CPHENT 
CESDENT 
the qon 
the ESD 
is move 
MOVENTR 
ENTRY C 



ntrol d 

n a fix 

curren 

dictio 

and the 

The 
trol di 
proces 
d to th 
Y after 
ard has 



ictionary 
ed locati 
t entry' 1 , 
nary entr 

current 
current E 
ctionary 
sor . The 
e control 
the next 
been rea 



entr 

on in 

The 

y sta 

ESD e 

SD en 

at la 

curr 

diet 

phas 

d. 



y is 
IJBL 
curr 
rts a 
ntry 
try i 
bel E 
ent p 
icnar 
e car 



first 
NK and is 
ent phase 
t label 
at label 
s added to 
LEINT in 
hase entry 
y at label 
d or the 



In IJJ6MAP the location CPHENT is used to 
save a phase entry during a search for ESD 
entries belonging to the phase that is 
being processed. References to control 
dictionary information are sometimes to the 
current entry and sometimes to the control 
dictionary itself. Therefore, in the 
following description of the control 
dictionary fields, the name of the 
corresponding current field between 
parentheses is added to the control 
dictionary name of the field. 



NAMED (NAME) 
ESDTYPD (ESDTYP) 

ASSOEGD (ASSORG) 

LNGTHD (LNGTH) 
RELFACD (RELFAC) 



CSNUMD (CSNUM) 



the name of the ESD item. 

the type of ESD item. The 
representation of diffe- 
rent ESD items is shown 

below. 

the assembled origin of 
SD, PC, LD, or LB. 

the length of the CM. 

• in the case of an SD or 
PC the relocation fac- 
tor. The relocation 
factor is calculated 
by subtracting the as- 
sembled origin from the 
next possible phase 
origin NXPHRGD (NXPH9G) . 

<* in the case ot a CM the 
absolute address of the 
next start of the CM. 

a pointer to the SD or CM 
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containing the entry sym- 
bol ot the LD or LB. If 
the SD or CM pointed to 
by an LD or Lfi has al- 
ready been processed the 
LD or LR is called "as- 
signed 11 . If not, LD or LR 
is called "unassigned" . 
In the case ot an unas- 
signed LD or LR this 
field contains the ESID 
number of the SD or CM as 
a pointer. In the case of 
an assigned LD or LR this 
field contains the con- 
trol dictionary number of 
the SD or CM. 



ESD Item 



| Representation 



Section Definition (SD) 
Private Code (PC) 
Common (CM) 
Label Definition (LD) 
Label Reference (LB) 
External Reference (ER) 
Weak External (WX) 



1 X' 


00 1 


I X' 


04* 


1 x« 


05 • 


1 x 1 


01" 


1 x« 


03 1 


1 x 1 


02« 


1 x 1 


02 1 



PHNUMED (PHNUME) the phase number of the 
phase in which the ER or 
WX was encountered. 



PHNUMD (PHNUM) 



the phase number of the 
phase containing the SD 
or PC. 



SWITCHD (CSWITCH) r - 



Bit|On 

+ 

0-4|Unused 



| Q±± 

-<f 



+ + 

5* | No JAUTCLINK 

jAUTOLINK | necessary 

| necessary | 
— + * 



6 |ER is a |ER is a 

| weak | normal 

lexternal |external 

| | reference 



7 JLD/LR un-|LD/LR 
| assigned | assigned 

t j 

*This bit is always set 

if bit 6 is on and also 

after AUTOLINK was not 
successful. 



PHNAMED (PHNAMEC) the phase name. 

ESDTYPED X'OT to classify the 

(ESDTYPC) control dictionary entry 
as a phase entry 



NOBLOKD (NOELOK) 
NOEXTED (NOEYTE) 



SLDITEMD 

(RLDITEMS) 

ORPHRGD (GRPHRG) 



NXPHRGD (NXPHRG) 



TRFBAED (TRFRAE) 



LINKSTRD 

(LINKSTRT) 



ELEELCKD 

(RLDBLCKS) 



PHTYPED (PHTYPE) 



phase in the format 
CCHHR for CKD devices. 
For FBA devices, the 
first four bytes contain 
the physical block number 
(relative to the device, 
not to the library) ; the 
fifth byte is unused. 

the number of text blocks. 

the number of bytes in 
the last text block. 



the number of RLB items. 

the load address of the 
phase. The first byte 
must be X'OC 1 (see note 
below) . 

the highest phase address. 
This field is initialized 
with the contents of 
OEPHRG. Every time an SD 
or PC is encountered the 
field NXPHRGD is aligned 
on a double word boundary 
and the length of the 
control section is added 
to it. 

the transfer address of 
the phase. The first byte 
must be X'OO 1 (see note 
below) . 

the starting address of 
the partition into which 
the program is link 
edited. 

the number of extra RLE 
blocks. Extra RLD blocks 
must be added if, after 
the text of a relocatable 
phase, RLD information is 
stored for use by the re- 
locating loader and the 
remaining space in the 
last text block is not 
sufficient. 

an indication as to the 
type of phase. 

r ' t 

| Type of Phase | Represen- 
| Jtation 



ORPHDAD (ORPHDA) 



the disk address of the 
first text block of the 



, + 

| Self | 

| relocating! X^O 1 

| Relocatable | X'40 1 

|SVA eligible | X^O 1 

|tiot j 

j relocatable! X'OO 1 
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Note: Most of the routines scanning the 


5 


control dictionary handle it as if it 




consisted of fixed length (20-byte) 


6 


entries. The value X'OO 1 in the first 




bytes of the ORPHRGD and TRFRACD fields. 




prevents the second half of a phase entry 




to be interpreted as an ESD entry since the 


7 


displacements of ORPHRGD and TFFRAED 




correspond to those of NAMED and ESDTYPD. 




Because of the type mask X^OO 1 for an SD, 




an exception has been made for routines 




searching the control dictionary for an SD. 


8 



LINKAGE TABLE 



The linkage table is an internal linkage 
editor mechanism used to link the ES1D 
number supplied by the language translator 
output to the corresponding control 
dictionary number that belongs to a control 
dictionary entry. 

The linkage table is composed ct a variable 
number of fixed 3-byte entries up to a 
maximum of 400. It is built separately tor 
each object module. When an END card is 
processed, signalling the end of a module, 
the table is reset to zeros. Location 
LTMINE contains the address of the first 
item in the linkage table minus 3 bytes. 
LNKTAD contains the address of the last 
item in the linkage table plus 3 bytes. 



Linkage Table 

Control | ESL | 

Dictionary | Type j 

Number j j 



2 Bytes 



'■* I 

| 1 Byte | 



Extract the relocation factor. 

Add the relocation factor to the 
assembled origin of the text to be 
loaded. 

Substitute the result of the 
calculation in step 6 (the load origin) 
for the language translator supplied 
assembled origin (for the text) . 

Calculate the block of the core image 
library to which this text belongs 
(next available block) . 

9. Get the proper core image block. 

10. Put the text into the core image block. 



Note: If a TXT card on P-pointer points to 
a negative control dictionary number, that 
control section is skipped. If the 
R-pointer points to a negative control 
dictionary number, that control section is 
needed (CSECT is not in this phase in real 
storage) . 



THE AUTOLINK FEATURE 



This feature tries to locate a module in 
the private (if assigned) and system 
relocatable libraries for any unresolved 
ERs found in the preceding phase. The 
signal that indicates a phase has finished 
processing is either a new phase card or an 
ENTRY card. When the signal is detected, 
autolink is attempted unless the feature 
has been suppressed by a NOAUTO phase card, 
action card option, or by WXTSN. 



Jxamjsles of Autolink with LIOCS 



USE OF THE LINKAGE TABLE AND CONTROL 
DICTIONARY 



The linkage table is designed to associate 
text and BLD information with the proper 
relocation attribute from the control 
dictionary. The following steps are taken 
in processing text: 

1. Get the ESID number and calculate the 
linkage table entry. 

2. Go to the linkage table. 

3. Extract the control dictionary number 
field of the linkage table, and 
calculate the control dictionary entry 
location. 

4. Go to the control dictionary entry. 



Whenever a DTF macro is expanded during a 
language translator run, an ER is generated 
with a label corresponding to a label of a 
LIOCS module. The label of the ER is used 
as the search argument in autolink. The 
autolink processing searches first the 
private (if assigned) , then the system 
relocatable directories for the 
corresponding label. The directory entry 
contains the disk address of the module in 
the relocatable libraries. The module is 
the macro expansion, and is then treated as 
an include statement. 

iiHJS§3§ l^ii2£ Fundamental Calculations: 
For the examples in this presentation: 

• The symbol A/0 represents the assembled 
origin. 
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• The symbol R/F represents the 
relocation factor. 

• The symbol L/0 represents the load 
origin. 

• The symbol P/0 represents the phase 
origin. 

Example jl: The A/0 provided by the language 
translator is added to an R/F determined by 
the phase origin information. If the phase 
is not relocated when it is loaded into 
main storage the result, the L/0, is the 
main storage address that is the physical 
location of this text, RLD item, or control 
section. 

A/0 + R/F = L/0 

Example 2: The assembled origin of the 
CSECT being processed is subtracted from 
the address that is the next possible phase 
origin. This results, in the relocation 
factor for that control section. 

P/0 - A/6 = R/F 

Example 3: The address of the next 
available control dictionary entry is 
calculated by adding the length of the last 
entry to the address of the last entry. 

Example 4: The current linkage table entry 
plus 3 equals the next linkage table entry. 



SRCHCD SRCHCD 



SBPCOD 



• If the control dictio- 
nary number is zero, 
the ESID number has not 
yet been processed. The 
routine then returns to 
the address in the link 
register. 

• If the control dictio- 
nary number is negative, 
the ESD item is bypassed 
and the routine returns 
to link register plus 4. 
Addresses of the linkage 
table entry and the con- 
trol dictionary number 
are supplied. 

• If the control dictio- 
nary number is positive, 
the routine returns to 
register plus 8. Relo- 
cation factor (for SD/ 
PC) , control dictionary 
number and address of 
the control dictionary 
are supplied. 

Searches the control AC 
dictionary for a matching 
label. 

Entry at SRPCOD continues 
the search after a matching 
label has been found. 



CNVHEX CNVHEX 



SUBROUTINES IN IJBLNK 



The first CSECT (IJBLNK) of the linkage 
editor program contains most of the 
subroutines used by other linkage editor 
CSECTs. After processing any of these 
subroutines, control is returned to the 
calling routine if not indicated otherwise. 
A list containing the subroutine names of 
this CSECT, the main entry points, 
descriptions of the routines 1 functions, 
and the appropriate flowcharts is shewn 
below: 



PRINT 
LOGMSG 



PRINT 
LOGMSG 



PRTLST PRTLST 



SPACE1 SPACE1 



AD1DSK AD1DSK 



Converts EBCDIC input 
to hexadecimal output. 



AC 



Prints messages and map AD 
onto SYSLST. 

Prints error message AE 
onto SYSL0G. 

Prepares for printing AD 
the linkage editor 
diagnostics of input. 

Spaces one line on AD 
SYSLST. 

Updates the disk address AE 
to the next record. 



Sub- Entry 
routine point 

RDSOCO RDS000 



LTESID LTESID 



Function 



Chart 



Reads input from SYSLNK AA 
or the relocatable 
library. 



Note: Input to this 
routine is an ESID num- 
ber supplied by the 
language translators. 
Inspects the control 
dictionary by taking 
the following actions: 



AE 



UPDSKAD UPDSKAD 



XTPHN0 XTPHNO 



XTPHGT 



Updates the disk address 
to the first record on the 
next track. 

Extracts the phase num- AF 
ber from SD, PC, LD, or 
LR control dictionary 
entries. 

Entry XTPHGT is used it 
the entry is known to be 
a SD or PC. 
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ABTEBB ABTERR 



Gives control to IJBRLD AF 
for abnormal termination 
error handling. 



EXLOAD reading of card. 



CDSIZE CDSIZE Checks for control 

dictionary overflow. 

WRITE WRITE Reads or writes core 
READC1 image blocks. 

DISKRDWR Executes the I/O by 
DISKIO means of EXCP. 

FDISKIO Entry if I/O for FBA. 



ALNKPR ALNKPR 



ALNKOF 



ALNKOF 
RDNEXT 



Initializes fo 
scanning of th 
table director 
AUTOLINK. Extr 
resolved ERs f 
control dictio 
collating sequ 
Gives control 
INCLUDE proces 
after the modu 
been included , 
control to ALN 
Reads the inpu 
and diagnoses 
card to pass c 
the appropriat 



AF 



AG 



CANCL 



ERROR 



CANCL 



ERROR 



r the 

e reloca- 

y f° r 
acts un- 
rom the 
nary in 
ence . 
to the 
sor and, 
les have 

passes 
KOF. 

t stream 
the type of 
cntrol to 
e CSECT. 



AG 



NOTCTL NCTCTL 



DERDAD DERDAD 



AH 



Cancel routine. If AH 
necessary, sets the new 
supervisor cataloged bit 
in COMREG off. 



Sets 
term 
mess 
rout 
in E 
retu 
rout 
is o 
RDNE 
erro 
AUTO 



up to print non- AI 
ination error 
ages. If the calling 
ine sets the RETRN bit 
RRSW, the ERROR routine 
rns to the calling 
ine. If the RETRN bit 
ft, return is to 
XT or to ALNKPfl if the 
r occurred during 
LINK. 



Converts input cards AI 
(containing 12-2-9 in 
the first column) to 
machine printable format. 

Provides a core image AK 
block containing a 
specified storage address 
for a work area. If the 
space in the work area is 
required for a next block , 
the current block is 
written back to the CIL. 



RDEXEC Entry at RDEXEC skips 
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GENERAL CHARTS 



General Charts Conventions: 



1. A unit of programming, routine, CSECT, or phase, is contained in one 
box like this: 



XXX 



yyy 



22Z 



1. 
2. 

3. 



step members 



where: xxx marks the label and routine name 

yyy says briefly what the routine does 

zzz is the reference to the detail chart (s) . 

The step numbers are given from 1 to n within this routine 

only. 

On-page connectors are such: 



-O -0- 



3. Off-page connectors are such: 



CONTROL 



Table E 




where: the number in the frame marks the chart from which we come or 
to which we go, 

the word above (incoming) or below (outgoing) marks the label 
(routine) on that chart, 

the number under the word marks the step within the routine 
to which we go if it is not step 1. 
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Chart 01, 



IJ.BINL and FBAINL Initialization 



( IJBINL* J 



INTPT2 



JA 



Calculates relocation factor and 
relocates address constants. 



VALIDFN 



JA 



Set constants for valid Fn - parameters on 
ACTION - card and set switches for RPS - support. 



OPEN ROUTINE 



JA, JO 



Opens SYSLST, SYS001, and SYSLNK and 
saves information concerning these files. 



CALCWA 



JA 



Calculates the address of 
. I/O - areas 
. linkage table 
. control dictionary 

Get start address of partitions. 

Check if partition is large enough. 



SYSREST 



JA, JD 



Initialize constants for system relocatable 
library and system core image library. 



v^PCIL^S. 

N. Assigned ^" 



NO 



PCI LYES w 



Verifies the 
linkage editor 
runs in the 
background 



YES 



Verifies that the private core image library 
is uniquely assigned to the partition in 
which the linkage editor is running. 



USESYS 



GET LIBRARY INFORMATION 



JB, JD 



Reads the library descriptor entry from the core image 
library directory to obtain device and library information 
of the core image library. Gets relocatable library 
information from the system directory. 



RLBOPEN 




YES 



Opens SYSRLD and saves start address of 
the private relocatable directory. 



FREADLN 



GHERKIN 



* Entry point to Linkage Editor 




JB 



Calls $$BSYSWR to allow writing 
onto SYSRES. 



NXTCARD 



ACTION CARD PROCESSOR 



JC 



Reads cards from SYSLNK. If an ACTION card is 
read, the operands are scanned. On reading the 
first NONACTION card, the actions are processed 
and the routine exits to RDEXEC to scan the 
NONACTION card. 





RDEXEC 



FREADLN 
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Chart 02. IJBLNK - Subroutines 



• >. Ub- bNUPHL 

( ALNKPR* J07-ENTCRD 


ALNKPR f 


AG 


Searches the control table for unresolved 
ERs and initializes for AUTOLINK if an 
unresolved ER is found. 




04 
06 
07 
08 



RDNEXT 



y 



YES 



INCLPR 



AH 



Reads record from SYSLNK or the 
relocatable library. 



01 - NXTCAR 
03- FREADLN 



S[T> 



RDEXEC 



AH 



Diagnoses type of card image and gives 
control to the appropriate CSECT. 



rrj 

IJBSCN 



04 




06 




CHKNPH 



IJBOTH 



Note: The flowcharts AA-AF and AJ-AK 
describe the less important subroutines. 



\/FREADIN FREADRE 
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Chart 03. IJBFIN - Processing iBh device input 
RPNEXT 
02 




KA 



Takes care of spanned records in the relocatable 
library. Entered from the read routine with label 
RDNEXT (Chart 02). 



RDEXEC 



INCLPR 



FRMDOIO 



KA 



Issues the I/O command by means of CCW's. Also 
used as second entry from IJBSCN (Chart 07) after 
having scanned the directory of the relocatable 
library for the module to be included. 



RDEXEC 



V 



01 -NXTCARD 
02- RDNEXT 



FREADLN 



KB 



Deblocks the input from SYSLNK. Entered the first time 
from NXTCARD, a label in the initialization routine IJBINL 
(Chart 01). As soon as the first non-ACTION card has been 
processed, always entered from read-routine RDNEXT 
(Chart 02). 
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Chart OM. IJBESD - ESD Processing 




CHKNPH 




INITIALIZE THE ESD PROCESSOR 



BA 



Performs the input control function of updating 
location PER I DA (see label list). Builds a dummy 
phase card for the initial phase if none has been 
supplied. 



ESDRET 



START CARD IMAGE CHECK 



BA 



Checks the validity of the type code supplied with 
each ESD item in the variable field of the card 
image just supplied as input. Provides exit from 
this phase when all the ESD items on a card 
image have been processed. 




YES 



SYM CARD 













' 


OTHER 

f 




^ 


/^RDNEXT 


< 


' 




' 


J 




1 


' ' 


f 


BC 




BA 




BA- BC 




BC 


Preliminary 
processing of 
SD/PC item. 


Preliminary 
processing of 
LD item. 


Preliminary 
processing of 
ER item. 


Preliminary 
processing of 
CM item. 


1 


' 




' 


' 




' 


f 


f 






' 


f 








BD 






Searches the control dictionary for a label 
matching the label of the input ESD item. 












1 


' 











ESLBCD 
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Chart 05. IJBESD - ESD Processing 



ESDRET 



E 





ESLBCD 




w 












PROCESS ESD ITEM AGAINST CONTROL 
DICTIONARY 


BD 






Compares the label of the input ESD item with 
the label fields of the control dictionary entries. 
Complete SD/PC processing by ensuring that the 
name field of the ESD item is a blank. 








1 


' 








ELBCM < 


' 




ELBSD ' 


r 




ELBLD 


' 




ELBER " 


BD 




BD 




BE 




BC 


Completes 
CM Processing. 


Completes 
SD/PC processing. 


Completes 
LD processing 


Completes 
ER processing. 


1 


' 




' 


f 




' 


r 




' 


f 














f 














UPDATES THE LINKAGE TABLE AND 
CONTROL DICTIONARY 



BF 



Posts the ESD item in the control dictionary (as a 
new entry or as a replacement). Moves the control 
dictionary number of the ESD item (non LD) to 
the linkage table. Checks for control dictionary/ 
linkage table overlap. 



X 

ESDRET 
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Chart 06. IJBOTH - TXT, REP, RLD, and END Processing 



IJBOTH 



TXTPRC 




INITIALIZE IJBOTH 



CA 



Scans and analyzes language translator provided input 
cards. Determines the processing routine required, and 
branches to the appropriate address. Determines card 
type and branches to appropriate processor. 



TXT 



END 



REP 



RLD 



TXT PROCESSOR 



C* 



Puts the text into core image format. 
Builds the text blocks relative to the 
starting address of the I/O area labelled, 
WKAREA. 



REPROC 



REP PROCESSOR 



CC 



Modifies REP card images so that they 
appear as text card images. Processes 
within the text processor as a text card 



RDNEXT 



RLDPRC 



ENDPRC 



END CARD PROCESSING 



CF-CG 



1. Updates input control mechanism PER I DA 
(see label list). 

2. Supplies transfer address if none has been 
accepted. 

3. Identifies unassigned LD/LR within the 
control dictionary for this module. 

4. Clears the linkage table. 

5. Accepts CSECT length if required. (Some 
language translators supply CSECT length 
in the end cards). 



RLD PASS 1 PROCESSING 



CD, CE, CH 



Converts R and P pointer information to 
control dictionary number information for 
pass 2 RLD processing. This routine outputs 
the pass 1 RLD information onto SYS001. 



RDNEXT 




ALNKPR 
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Chart 07. 



IJBSCN 



Control Statement (INCLUDE, PHASE, and ENTBY) and Scan Processing 

RDEXEC 



IJBSCN 




INITIALIZE CONTROL CARD PROCESSOR 



DA 



Performs the input control function of updating location 
PERI DA (see label list). Locates the operation field of 
the control card and performs initial validity checks of 
this field. Identifies the type of control card and bran- 
ches to the appropriate processing routine. 



INCLUDE 



INCCRD 



PHCRD 



INCLUDE CARD PROCESSOR 



DB 



Checks the validity of the 
INCLUDE card operands. 



ALNKPR 




ENTRY 



PHASE 



ENTCRD 



PHASE PROCESSOR 



DC -DE 



Validity checks operands and operand 
delimiters (stop characters). 



ENTRY CARD PROCESSOR 



DB 



Provides exit from either the entry card 
processor or the phase card processor. 
Saves any transfer address provided as 
the operand of an entry card. 




INCLPR 




INCLUDE/AUTOLINK POST PROCESSOR 



DG,DH,DJ 



Performs total search of private relocatable, if assigned, 
and system relocatable directories for a module with the 
name specified by the INCLUDE card image. Updates 
location PERI DA which is used to keep track of nested 
INCLUDES (see label list); also searches the directories 
for a module with same name as the ER, generated by 
LIOCS or some language translators (autolink feature). 



ALNKPR 



IJBCTL 




RDNEXT 
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Chart 08. IJBCTL - PHASE and ENTBY Statement Processing 



ENTCRD 



PHSPRC 



WRTRFR 



PHASE PRE-PROCESSOR 



EA-EF 



Determines which optional operands have been used. 

Builds current phase control dictionary entry. 

Gets all the information necessary to process this phase 

and determines whether the phase can be made 

relocatable. 




PHASE POST-PROCESSOR 



ED 



Writes the current core image block in the core image 
library. For relocatable phases, space is reserved in 
the CIL to include the relocation information. 



RDNEXT 



WHAT NOW 



PHASE 




JBMAP 
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Chart 09. IJBMAP - Print Map 



WRTRFR 



m 



IJBMAP 



PRINT MAP 



FA- FE 



Displaces phase load addresses by the cumulative 
length of the commons. Calculates the load 
origin for the transfer address. If the map option 
was selected, prints the map. Determines the 
exit from this phase, depending on errors 
found and whether or not cancel option is specified. 




IJBRLD 
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Chart 10. IJBRLD - RLD Processing 



IJBMAP 



f RLDRET J 



o 



TSTUNR 


RLD ^S 
. PASS Z/ 


YES 










' 


' 


TSTCNT 




i 


NO 


w 


MAP ROUTINE GD 


YES^ 


Map Option^ 


WRLST 


Map unresolved Adcons and/or 
Adcons outside the limits of the 
current phase. 














NO 


' . 








' 






RELF 


*OUT 





NO 



IJBRLD 




PASS2-P POINTER PROCESSOR 



GA 



Reads R LD records from SYS001 , where they were written 
by IJBOTH. Gets the relocation factor for the P pointer and 
moves the appropriate control dictionary entry to the current 
phase entry if the P pointer is outside the current phase, thus 
re-initializing for the subroutine that builds core image blocks. 
Controls the route taken in IJBRLD, choosing the appropriate 
processor based on conditions found. 



RLDOR 



PASS2-R POINTER PROCESSOR 



GB 



Gets the relocation factor for the R pointer. If the R 
pointer is an ER, the assembled origin is included in 
the calculation. 



RLDCON 




PASS2-RLD CONSTANT PROCESSOR 



GC 



Adjust the constants portion of the R LD item by the value 
of the relocation factor. Moves the address constant to 
the output buffer in core image format. 
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Chart 11. IJERLD - RLD Processing 



TSTUNR 



RELROUT 




INITIALIZE PASS3 RLD PROCESSING 



GE,GG 



Modifies Pass2 RLD Processor to insert relocation 
information for relocatable phases into the space 
reserved by the 'PHASE' processor. Repositions 
SYS001 to the start of the RLD file. 



TSTUNR 



WRLST 



BLOCK PHASE HEADER 



GF, GG 



Writes the last block in the core image library and 
verifies all core image blocks previously written 
and closes SYSLNKand SYS001. 




12 



IJBCAT 
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Chart 12. IJBCAT - Catalog Routine 



WRLST 



IJBCAT 



*The STOW table is the interface of the 
linkage editor with $MAINDIR. 
$MAINDIR updates the core image library 
directory according to the information 
in the STOW table. 



INITIALIZATION 



HA 



Starts the STOW table *after the control dictionary 
initializes the control dictionary search. 



SCANCD 



HA 



Searches for the next phase entry 
in the control dictionary. 



'End 

"of STOW TahlK t YES ^ 
.Reached 



UPDDIR 



HA 



Sets up register interface with $MAINDIR 

RO Start of STOW table 

R1 Transfer address of $MAINDIR 

RD Work area address 

RE Return address 

Calls $MAINDIR to update the directory. 
Starts new STOW table. 



BLDENT 



HA 



Modifies the load and transfer address 
of the phase in process and adds the 
entry to the STOW table. 



NO 




End 
Of CD 
Reached 



YES 



RETURN 



HB 



Calls UPDDI R for the last time. 
Calls $LIBSTAT if OPTION CATAL was 
specified and SYSLST is assigned. 
Sets JCSW2 in COM REG indicating a 
successful link edit run or requesting 
an auto condense limit check. 



(Return to A 
Job Control J 
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DETAIL CHARTS 




-C1- 



Label 1 BW 

Subroutine 



-D1- 



Prepa ration 





r E1 1 

Predefined 
Process 





-F1- 



/input/Outputy 




r — "n 

( Terminal ) 




|BD 
Filinp 



DESCRIPTION 

A group of program instructions that per- 
form a processing function of the program. 
The label, if any, is shown above the block. 
*B2 

If any additional explanation is required, 
its location on the chart is identified by an 
asterisk and the block ID. 

Description of a subroutine. The starting 
label of the routine appears above the stripe. 
If the subroutine is documented in detail on 
another flowchart, the ID of this flowchart 
is also shown. 

An instruction, or group of instructions, 
that changes portions of a routine or initia- 
lizes a routine for given conditions. 



A group of operations not detailed in the 
flowcharts in this manual, such as user's 
routines. 



Any function of an input/output device or 
program, usually branching to an I/O routine 
to perform the function stated in the block. 



Points where the program branches to alter- 
nate processing, based upon variable condi- 
tions such as program switch settings and 
test results. 



The beginning, end or point of interruption 
in a program. 



On-page connector. An entry from or an exit 
to another function on the same flowchart. 
The number in the connector identifies the 
corresponding entry or exit on the chart. 



Off-page connector, an entry from, or an 
exit to, a given point on another flowchart. 
The characters in the connector identify the 
chart and block. The corresponding label, if 
any, is placed outside the connector. For mul- 
tiple entries and exits, an asterisk appears in 
the connector and the characters are listed 
nearby. 



EXAMPLE 



BB-D4, INITLI 
BC-B2, OPENX4 
BL-JL, ENDPRN 




( End of Job J 
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Chart AA. IJBLNK - Read SYSLNK Subroutine. Refer to Chart 02 



♦ •♦♦A f********* 

* RDS0O0 * 

* * 
*************** 



**** 
* B3 * 



Dunur *. ybs 

PHASE .♦ . . . 

CARD .* 



*****£ 1*** ******* 

* * 

♦UPDATE POINTER * 
♦TO MBIT LOGICAL^ 

* RECORD ♦ 

* * 
***************** 



RECORD ♦. MO 


*-*-*-*-*-*-*-*-• 

. ..X ♦COMPOTE ADDRESS^ 


.* 
.♦ 
♦ . .♦ 

♦ IES 


♦ Or 1ST RECORD ♦ 

♦ ON M8XT TRACK ♦ 
***************** 



RLCFOO 
MO .♦* 



SI ILL 

IN THIS 

BLOCK 



♦♦♦♦♦E I********* 

* SET UP CCM 

* TO READ 

* SfSLNK 

**************** 



INS000 

*****p )********* 

* SET OF DISK 

* AMD SECTOR 

* VALUi. ADDRESS 

* OF NEXT BLOCK 

**************** 



♦SET UP OVERFLOW^ 

♦ FACTORS FOR ♦ 

♦ SISLNK ♦ 

♦ * 
***************** 



.♦ ON ♦. IES 

♦. RELOCATABLE .*.... 
♦ . LIBRARY .* 



****£ 2* ******** 

• * 

♦ 1MS000-4 ♦ 

* * 
*************** 



****p 2* ******** 

INS000 
*************** 



«****ri 2** ******** 
•SET OP OVERFLOW 

♦ FACTORS FOR ♦ 
X* RELOCATABLE ♦ 

* LIBRAh* ♦ 



*****j 1********4 

SET OP DISK 
ADDRESS OF 
NEXT BLOCK 

*************** 



***& i************ 


K2 * 


DISK 10 AG 




_*_*_*_*_*_*-*_* 


.♦ NRF 


BEAD NEXT 


X*. TO iJL 


RECORD ♦ 


*. TlSTED 



***************** 



*****g 3** ******* 

* SAVE NEW DISK 

* ADDRESS IM 

* LOCATION 

* ONSOOO 
* 
**************** 



*****P3******** 

♦ SAVE NErf 

♦ SECTOR VALUE 

♦ IM LOCATION 

♦ LMKSV 

*************** 



*****G j** ******** 

♦ SAVE MOMBER ♦ 

♦ OF LOGICAL * 

♦ RECORDS AMD * 
♦LOGICAL RECORD ♦ 

♦ LENGTH ♦ 
***************** 



***** t {3********** 

♦ INITIALIZE * 

♦ POINTER TO ♦ 
.♦ FIRST LOGICAL ♦ 

♦ RECORD ♦ 

♦ * 
***************** 



************* 



****& j********* 
». MU A ♦ RETURN VIA ♦ 

.♦ X+ LISK REGISTER ♦ 

* * * 

*************** 



♦ G1 ♦ 

* * 
**** 



IF THIS ROUTINE IS OSED 

TO CHECK FOB MORE RECORDS; 

INPUT CONTROL SETS 

SWITCH RECFOO AND CHANGES THE CCM 
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Chart AB. IJELNK - Control Dictionary Search Subroutine. Bet er to Chart 02 



* A4 * 

* * 
**** 



****A 2** ******* 

* * 

* LTSSIi> * 

*. * 

*************** 



***** 3********* 

* * 

* LTCDAD * 

* * 
*************** 



.Ll'CDAi) X 

*****IH*** ******* 

* CALC ADDBBSS * 

* OP CONTBOL • 

* DICTION At I * 

* BNTfil XI • 

* BEG 9 * 
***************** 



**** A 5********* 

* * 

* LTCDBP * 

* * 
** • ************ 



* KSll) 

NUMBER 
♦.POSITIVE 



LINKAGE TA8LE- 
COJITKOL DICTIONARK 
OVERLAP. 



* CALCULATE * 

* ADDRESS OP * 

* LINKAGE TABLE * 

* ENTRY * 
***************** 



*****■[) 4 ********** 

* CAi.Cai.ATi * 

* ADDRESS OF * 

* NEXT LINKAGE * 

* TABLE EHTHi ♦ 

* * 
********* ******** 



* RSLT *. 

Qt> CALC 
GT LNKTAD 

CONTENT , ; 



ERR44 X 

***C3********* *** 
EBBOB AJ 

*_*-*-*-*-*-*-*-* 

ERROR A.. 

* MESSAGE * 

•21441* 
***************** 



****D3** ******* 

* BDNEIT * 

* CHART Ad * 

* * 
*************** 



E3 *. 
.* RSLI *. 
* OP CALC *. IBS 
GT CDENT 1 .♦... 



♦LOAD RELOCATION* 

* FACTOR INTO * 

* BEGISTEB 7 * 

* * 
***************** 



****C4 ********* 
♦RETURN TO LINK * 
♦REGISTER PLOS 8* 

* * 

*************** 



*****p 3********* 

* UPDATE LOC 

* LNKTAD HlTd 

* RESULT OP 

* CALCULATION 
* 
**************** 



*LOAD CTRL i>iCl' 
♦INTO uiSG.t, ANu 

* Viif Jr.SD TJHi 

* INTO SSDTYPS 



**** j )********* 

* 

* LTCDNO 

* 
*************** 



INITIALISE 
HOI ihOCf.iSEO 
BRRO.-i !\ ESS AGS 

Lii l-.EGISTiiR 



.* CTRL ♦. 

i>ICT *. itS 
NO. Ey .* 



****j 3** ******* 
♦ RET UBS TO UNA 
X* RfcG ADDRESS 



.* CTRL *. 
.* i>ICl *. XES 

♦. SO. A MINUS .*.... 



****K3********* 

♦RETURN TO LINK ♦ 

.^♦REGISTEB PLUS 4* 

* * 

*************** 



**** 
* 
* A4 
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Chart AC. IJBLNK - Label Search and Convert to Einary Subroutines. Refer to Chart 02 



»***Aii* ******** 

* * 

* SRCHCD * 

* • 
*************** 



* ***A4********* 

* C«?HEX • 

* • 
*************** 





SRCHCD X 












CNVHEX X 




*****3^«* ******** 












*****£{ (|********** 




* pot l/e co«H * 












* * 




♦REGION ENTRIES * 












* ZERO THE * 




* CTLDNO AND * 












* HETOBN * 




* CTLOAD Ih 2 * 












» REGISTEB * 




* KEGS * 












• * 




***************** 












** *************** 




**** * 












**** * 




* * 












♦ ♦ 




* C2 *.X. 












* a* *.x. 




* * 












* * 




**** x 












**** 




SRLABL .*. 












ERR 00 2 X 




C2 *. 












*****£4*** ******* 


****C1********* 


.* LABEL *. 


* 


***C J* ******** 


♦ INITIALIZE * 


* 


.* lit CTRL *. i&S 


♦ 


BET 


TO 


LINK 


* 


• ERROR BESSAGB * 


> SRPCOD ♦ 


♦. DICT EG CD .* 

*. raAGi: .* 


. .1* 


REG 


PLU 


5 a 


* 


* FOR THIS * 


* 


* 








* 


• SOBROOTINE • 


*************** 


*. .♦ 


***** 


********** 




• * 



***************** 



OF CTRL 
DiCT 



****i)j********* 

* RET TO LINK * 

* REG * 

* * 
*************** 



*****D4**« ****** 
* 

* INITIALISE 

* A tfORK 

* REGISTER 
• 
**************** 



♦Hi 
HOLT IP LX RrU 
BI 16 AND ADD 
CONTENTS OF 
liOSK REG. 



***«*£2********** 

* * 

* GET THE * 

* NEXT CTRL * 

* DICT ENTP* * 

* * 
***************** 



***** f< /** ******** 

* DECREASE * 

* THE CTKL * 

* DICT NO MB EH * 

* tit ONE * 

* * 

***************** 



**** 

* * 

* G3 * 



*****gl| ********* 

* TEST THE 

• CHARACTER 

♦ AGAliST A 

♦ NINE 
* 
**************** 



.* CHARACTER ♦ . IES 
♦.GREATER THAN ...... 

♦. 9 .♦ 



**** 


. 


m 




X 




* CI * 


CNVHSSJ .♦. 


X 


* * 


G3 ♦. 


*****64*** ******* 


**** 


.♦RESOLT ♦. 


♦ POT TttE ♦ 




.* IN THE ♦. HO 


« CHARACTER ♦ 




♦RANGE HEX »0A«.*.... 


♦ BBING TESTED ♦ 




♦. TO »0P» .♦ 


♦ INTO THE iORK ♦ 




♦ . .♦ 


♦ REGISTER ♦ 




♦. .♦ X 


** *************** 



•*•* 

* * 

* G5 * 

* * 
**** 



****H 2** ******* 

* * 

* CNYAHX * 

* * 
*************** 



♦ CONVERT TO ♦ 

♦ BINARY ♦*... 

♦ ♦HI ♦ 

♦ • 
***************** 



.♦ MORE 
♦. CHARACTERS 
♦TO CONVERT. 



** ***{{4********** 

♦ CALCULATE * 

♦ CHARACTER ♦ 

♦ VALOE HIIOS ♦ 

♦ HEX»P0» ♦ 

♦ • 
***************** 



RESULT 

OP CILC 

.NEGATIVE 



***************** 



****H5********* 

* RDMEIT ♦ 

* CHART AH ♦ 

* * 
*************** 



*************** 



*****&<(***•****** 

* * 

* ADD A HEX ♦ 

* «39« xo THE ♦ 

* CHARACTER ♦ 

* • 
***************** 



**** 

* • 

* 63 ♦ 

* • 
***♦ 
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Chart AD, 



IJELNK - Print Subroutines. Eefer to Chart 02 



****£ I********* 

* » 

* pa is t * 

* * 
* ****** ******* * 



END OF 

PAGE 
REACHED 



***C 1************ 

* PHIHT * 

HEADER 
* ONTO * 

SYSLST 
***************** 



*****0 I********** 

* * 

* DECREASE * 

* LINE count * 

* OH SYSLST * 

* BI 2 * 
***************** 



*****£ 1********** 

* * 

* ENSURE * 

* SPA CI JIG OF * 
*2 LINES BEFORE * 

* NEXT PRINT * 
***************** 



• *** 

* * 

* F1 * 



**** 

PRTLINE X 

***p |************ 

* PRINT * 

OUTPUT AREA 
* ONTO * 

SYSLST 
***************** 



*****Q1**** ****** 

* * 

* CLEAR * 

* OUTPUT AREA * 

* TO BLANKS * 

***************** 



****H 1********** 

DECREASE * 

LINE COUNT • 

ON STSLST * 

BT ONE * 

**************** 



****j -|********* 

* RETURN ?IA * 

* LINK AGISTER * 

* * 
*************** 



****A<i***** 

* L'JGJiSG 

* 
*********** 



*****£ 2* ********* 

* # 

* SET COUNT * 

* IN CCW TO * 

* LENGTH OF * 

* MESSAGE * 
***************** 



***C^** ********** 

* WRITE * 

OUTPUT AREA 

* ONTO * 

SYS LOG 

***************** 



JUST *. NO 

BUFFER BE .*... 

. BLANKED .* 
*. *F«» .* 



****£^>* ********* 



*************** 



****A J********* 

* * 

* SPACE 1 * 

* * 
*************** 



♦ENSURE SPACING * 

* OF 2 LINES * 

* BEFORE NEXT ♦ 

* PKINT * 
***************** 



*****C 3#*» ******* 

* * 

* DECREASE * 

* LINE COUNT * 

* ON SYSLST * 

* BY ONE * 
***************** 



****D 3** ******* 

* RETURN VIA * 

* LINK REGISTER * 

* ♦ 
*************** 



****A<* ********* 

* * 

* PRILST * 

* * 
*************** 



****U5********* 

* RETURN VIA * 

.X* LINK &EGISTER * 



** ***c<t**« ***** ** 

* * 

* FILL OUTPUT * 

* AREA H1TB * 
♦CARD IflAGE AND * 

* STRING 'LIST* * 
***************** 



*****D4 ********** 
♦PRINT AD * 

*— *-*-*-*-*-*-*-* 

* NRITE OUTPUT * 

* AREA ONTO * 

* SISLST * 
***************** 



****gjl*** ****** 

* RETURN tIA 

* LINK REGISTER 



*F<* 
OUTPUT BUFFER HILL MOT BE 
BLANKBD IF SONS HESSAGE 
HOST ALSO GO TO SISLST. 



****p 2* ******** 

* RETURN VIA * 

* LINK REGISTER * 

* * 
*************** 
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Chart AE. IJBLNK - Input Pointer to Address to be Updated. Refer to Chart 02 



ENTRK PFUfl HtRDAD 



*************** 



GLT POIMli^ * 

TO DISK * 

ADDRiSS TO fie: * 

3: DA T1T-' * 

**************** 



*****C3******* 

♦ flOVE DISK 

♦ M.'DhESS ro 

* LOCATION 

* N Erf DAD 

************** 



RECORD 



***ii j********* 
allAnc! iii'COftD 

aunBEH ro 
lAXi.nu.i i« 

CKLFCT 



* KSCOKD 

Nii«biii{ roo 



ii4 * 
»*** 



*** *£!$*** ******* 

COHPARE TRACK * 
NUrtoEK TO * 

lAXinun in * 

CILJfCT * 



.* TaACK *. NO 

*. NUHBEK TOO .*. . . 
*. lilbtt .* 



*****Dt t ********** 

♦SET Oi OV EH FLOW* 
*PACT0ii TO HfiSEX* 

* THACK M&bhR * 

* AND UH)ATE * 
*C*LINDKK KUttBER* 
***************** 



** ***£4******** 

* ADD OVEni-LOrf 

* FACTJh TO 
♦ClLINDER/ihiiCK 

* ADDAESS IN 

* WKiiDAD 
*************** 



** ***p^******** 

* SET S£CTOc 

* VALUE TO 

* &EaO 



OHD cilKIBEK 

1, A 01) 1 
iiACK JUrtBL 



****GH*** ****** 

♦ KBTOKJI TO * 

* i>iNK REGISTER * 
♦ADDRESS *H<+* 

*************** 



OUTPUT: UPDATED DISK 
ADDRESS IN LOCATION 
tibWDAD 
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Chart AF. IJBLNK - Extract Phase Number, Overflow Test, and Phase Load Subroutines 
Refer to Chart 02 



****A 1* ******** 

* * 

* XTPHNO * 

* * 
*************** 



XTPHHO X 

*****g i**** ****** 

* SAVE THE CTRL * 

* DICT ADDB OF * 

* THIS BBTBT * 

* ID RSG 1 * 

* * 
***************** 



*****£ i********** 

* TEST THE * 
•CTRL DICT TIPE * 

* PI ELD FOB * 

* THIS EMTBI * 



******* 



******** 



****in********* 

* * 

* CDSIZE * 

* * 
*************** 



NO .* DOES 
...♦. CTHL DICT 
*. EXCEED .' 
*. 32K .* 



.* DOES *. 
.* CTRL DICT *. 
. OVERFLOW 
♦.PARTITION.* 



****C5********* 

• RETURN VIA * 
.X* LIMK REGISTER * 

* * 
*************** 



***************** 



*****p i********** 



*************** 



****G |********* 

* RETURN TO * 

* LIMK 8 EG ADDH * 



**£^>** ***** 

♦MODIPlf LIMK* 

* 8 KG 10 * 

♦ PROFILE REfiMIRlt* 

* TO THIS . * 
* ROUTINE * 

*********** 



GET CTHL DICT * 

Al'DR OP * 

SD/PC fUVhl * 

**************** 



* LOAD LENGTH * 

* AND ADDBESS * 

* OF EBB OB * 
•HESSAGE ^IIMl** 
***************** 



*****£(4**« ******* 

BBROB A J * 

- »_*_*_*_*_*_*_* 

KRITE MESSAGE * 
•21441* • 

* 

!* ******** ******* 



****P^*** ****** 

* BDMEXT * 

* CHART AH * 

* * 
*************** 



****G4*** ****** 



REFERENCES 
TO APH4: 
AKES, JAA5 
JAC3, JAK5 
JBB2, JBB4 
JBB2, JBU2 
JBH3. JBK1 
JBK2, JBK3 



************ 



*J1 

THE PHASE NOHBEfi FIBLD OF 
THB CONTROL DICTIONARY BNTRIT 
IS SPLIT. THE HIGH ORDER 3 BITS 
ARE KEPT IN BIT POSITIONS 1- 1. 
AND 3 OF THE TXPE PIELD. THE 
ENTIBE PRASE NOflBBB FIELD HAS 
A LENGTH OF 11 BITS. THOS 
PROVIDING PHASE NOHBERING 
UP TO 2047. 



LOAD BASE 

ADDBESS FOR 

IJBRLD 

************** 



****J4********* 

* IJBBLD * 

* CHABT GA * 

* * 
*************** 
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Chart AG. IJBLNK - Read/Write and Autolink Processing subroutines. Refer to Chart 02 



• •**& j********* 

* « 

* BEADC1 • 
*************** 



RBADC1 X 

*****B i********** 

* POT THE DISK * 
♦ADDRESS OP THE * 

* BLOCK-CCBH5 * 

* INTO LOC * 

* ADDRESS * 
***************** 



*****C 1********** 

* HOVE SET SEC- * 
♦TOR, READ SEC- * 
*TOH OB TIC FBOM* 

* RES TABLE TO * 

* CC» CHAIN * 
***************** 



• WRITE • 

* * 
*************** 



****A«*«* ****** 

* • 

* ALMKPR * 

* * 
*************** 



• *.X. 



REFERENCES 
TO AGB«: 
AHD1, AJH4 
DBB5 



*****C /** ******* 

* MOVE WRITE 

* Oi CODE 
.* ISTO 

* CCW.KDBRC1 

**************** 



*****B 3** ****** 



***************** 



**** 

* * 

* P1 ♦ 

* * 
**** 



**** 
ALMKPB X 

*****B4********** 

* INITIALIZE TO * 

* ADDRESS OF * 
•FIRST CTRL DICT* 
•BMTRT II REG 9 * 

* * 
***************** 



**C4******* 

♦ TORS OFF * 

* A TO LI UK 

Si CROP 

* AT LOC 

• EIDER R * 
*********** 



****A5********* 

* * 

* ALIKGT • 



* * * REFERENCES 

* * • t TO RGBS: 
i %••*• DAG 5, DDB* 
**** * DDG2, DDJ4 

*****B5********** 

* • 
•SET ADDRBSS OF * 

* COHTROL CARD • 

* PROCESSOR * 



***** 

•AH * 
* At* 

* • 



**** 

* * 

* DS * 



DISKRDHR X 

*****D |********** 

♦ SET OP CCW AT * 
♦LOC USKWHT WITH* 
♦RDWRC1.POT CCB * 

♦ ADDRESS IB * 

♦ REGISTER B * 
***************** 



POT ADDRESS 
OF CCi> ISTO 
REGISTER 1 



**** 
*AK ♦ 

* ♦ 
**** 

FDISKIO X 

*****p i***«****** 

* READ DATA * 

* (SYCO) WAIT * 
..X* jS»C7j FOR ♦ 



w 



lOUIRED * 
********* 



*****£ 1********** 

* * 

* TEST THE CCB * 

♦ TO DETBRBIRE * 

♦ I/O STAT OS * 



****D 2* ******** 

DISKIO 
*************** 



TYPKVb X 

*****D<}********** 

* INIT PHVERB ♦ 

* WITH ♦ MOP * 

* ADTOLIIK SW * 
♦(RDALSB) -CLEAR 



)-CL 
G 6 



***************** 

**** 

* * 

* E4 ♦ .!. 



*****£ 3* ********* 

* dOVE HEX *FF» ♦ 

* INTO CTRL DICT * 

* ASfl ORG FIELD ♦ 

* TO SHOW PROC * 

* COMDIT * 
***************** 



*****pj********** 

* SET MORE * 

* AOTOLIHK IN * 

* PROGRESS 6W * 

* (RDALSWl * 

* EO TO BR * 
***************** 



****G3********* 
* IJBCTL * 

» CHABT EA * 

*************** 



* INITIALIZE 
.X* BRRQfi MESSAGE 

* »2197I« 
* 
**************** 



**** 

* * 

.X* K3 * 



• ***K 1********* 

* RETURN TO ♦ 

* LIBK REGISTER • 

* ADDRBSS * 
*************** 



****K2********* 

* RETURN TO * 

* LINK REG * 

* *H * 
*************** 



** ***j 3********* * 

* • 

* INITIALIZE * 
.X* ERROR HESSAGi * 

* »2194I» » 

* * 
***************** 

**** * 

* * 

* K3 *.X. 



****K3********* 

* I JBRLD * 

* CHART GA * 



END 

OF CTRL 

DICT 



ALNKOD .*. 

PH ♦. 
.* ANT ♦. 
IES .* BORE *. 
......ONRBSOLVED BR.* 

*. IB CTRL .* 
*.DICT .* 



***• 

* * 

* D5 * 

* • 
**** 



*****D5********** 

* DBCRBBKIT * 
•REG 9 TO POINT * 

* TO BEXT CTRL * 

* DICT BITHI * 

* * 
***************** 



* CTRL 
DICT KM TBI 

*. BQ BR . 



* MO 



****Q/ 4 ********* 

* ALHKOF • 

* CHART AH * 

* * 
*************** 



•H4 

RESOLVED ER'S 

HAVE AH X«FF* 

IN 10TH BITE 
OF CTRL DICT 



THE WHOLE MA BE 
FIELD IS TESTED 
TO DETESBIME WHICH 
EB IS LOWER IN 
COLLATING SEQOBNCE 



THIS BB 

BE SOLVED 

•H4 



**** 

* * 

* G5 *.X. 

* * 
**•* x 

.*. 
65 



TEST FOR 
X»PB» IB 

. ASSORGD 



B5 *. 

.* HAS *. 

.♦THE SBABCB *. 

. BBG BEEN 

*. LOADED .* 

*.OBCB .* 



• MO 



ALNKVL X 

*****J5********** 

* LOAD SEABCB * 

* BBG 6 BITS * 

* CTBL DICT * 

* ADDB (BBG 9) * 

***************** 



K5 *. 

.♦LOWEST *. 

.* BR IB *. MO 

*. COLLATING SEQ.*.... 

*. IM B6 -* 

*. *KH .* 

*. .* X 

* IBS ••** 



..X. 

X 
**** 

* * 

* B« • 



65* 
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Chart AH. IJBLNK - Bead Input Stream. Befer to Chart 02 



**** 

* A3 * 



♦ ♦•A 1*** ****** 
ALNKOP * 



ALNKOP 

*****£ I********** 

* SET ALNKS* * 
*SW. FOR NOAUTO * 

* AND RESTORE * 

* A DDR. OP CTRL * 
*CARD IM ONSOOO* 
*** ******** **** ** 



*****C1* ********* 



***************** 



.♦ HETURN *. IBS 
♦ . TO AUTOLINK ...... 

*. *C2 .* 



* NOP ***** 

*** .NO *AG * 

* * b4* 
E 1 ♦ .X . * * 



fES .* INPUT '*.^„ 

...*. FRGfl SfSLSK -*X« 



♦***A^** ******* 

* * 

* * 
*************** 



**B/******* 

reset switch* 

* mousts ro * 

SHO* END Of 

* SUBrtODULAR * 
* * 

*********** 



*****A j********** 
♦RDS000 AA * 

*-*- *-*-*-*-*-*-* 

* READ THE * 

* INPUT * 

* * 
***************** 



**** 

PHL3H£T 

**B3******* 

♦MOP SrflTCH 

* RDS000- 
* SO DUrtMX 

* PHASE CARD 

*********** 



*C2 

set switch r 

BRANCH IP 
AUTOLINK IN 
PROGRESS 



***K2******** 
RDNEXT 



****P 2* ******** 

* FHL'ADRfL * 
» CHART KA * 

* * 
*************** 



RDEXEC 

*****<; 3********** 

♦PUT THE ADDRESS* 

* Of A TABLE * 

..X* OP CSECT * 

. *ADDR£SSES INTO * 

. * REGISTER 1 * 

***************** 



*JD * 
* C5* 
***** 



D.1PHS* X 

*****0 3*** ******* 

* SAVE THE ADDR * 

* OP THE LAST * 

* DISK I/O IN * 

* LOCATION * 
*COHNRF *Pb * 
***************** 



*****& j** ******** 

* * 

* TEST COLUMN * 

* ONE OF THE * 

* CARD IilAGE * 

* * 
***************** 



; )********** 



****G J********** 



SUP 


* 


NO 


* 


TEST THE 


1 JDULAtf 




*. . . . 




CARD IMAGE 


*Gb 


.* 




* 


FOR TXPE 



****** *•** 



***************** 



* * H2 *.X 
PNDENT . ; 



****Ai****** 


**** 


* 




* EXLOAD 




* 




*********** 


**** 


**** * 




* * 




* b*4 *.X. 




* * 




**•* x 




ILOAD .*. 





****A5********* 

* * 

♦ CANCL ♦ 



X 

****C**** ******* 

SAVE VALUE • 

OF REGISTER ♦ 

ONE IN * 

LOCATION * 

OVRXPR * 

**************** 



** ** *d 4** * ** *** * * 
♦HRSQ01 CH * 

*-*-*_*-*-*-*-*-* 

* NRITE PASS 1 * 

* ELD INPO * 

* * 
***************** 



** ***£!(********** 

* * 

* RESTORE * 

* REGISTER * 

* ONE * 

* * 
***************** 



* LOAD BASE RBG * 
♦OF CSECT 10 BE * 

* BRANCHED * 

* * 
** *************** 



****G4********* 
♦BRANCH TO A DDR ♦ 

♦ IN BASE REG • 

* * 
*************** 



.* MEN ♦. 10 

. SOPEBVISOR .♦... 
♦.CATALOGED.* 



**C5******* 

* * 

♦ SET OFF * 

♦IBS SUPERVISOR ♦ 

♦CATALOGED III ♦ 

♦COflfiLG BIT ♦ 

*********** 



****D5********* 

* * 

* CANCEL ♦ 

* * 
*************** 



♦E5 
FETCH CONTROL CARD 
REGISTER ED IS THE 
BASE REGISTER FOE 
ALL OTHER VARIABLE 
CONTROL SECTIONS. 



♦F5 
HODIFIED IF A DOHMI 
PHASE CARD IS 
GENERATED. 



♦G5 
IF IN SUBHODOLAfi, 
SKIP ALL CARDS EX- 
CEPT AN ENTRX CARD. 
FIND TH& RNTfll CARD 
AND FETCH CONTROL 
CARD PROCESSOR, 
IJBSCN. 

**** 



• IS NI.XT ■ 

CHARACTER 
•. A BLANK .' 



****j i********* 

♦ PREADLN * 

♦ CHART KB ♦ 

♦ * 
*************** 



*****K 1********** 



***************** 



.* . 


CHKSIJS .♦. 


2 *. 




J3 ♦. 


■*. 




.♦ ♦. 


KNTRX *. IE3 




.♦ sra 


D IHAGE .*.... 




♦. TfPB 






♦ . 


.♦ 




♦ . .♦ 


♦. .♦ X 




♦ . .♦ 


* NO *** 




♦ NO 


* 


* 




♦ B2 


* 




X ♦ 


* 




**** **** 




* * 






♦ Hb * 




X 


* * 




*****K3******* 


**** 




♦ INCREMENT 

♦ REGISTER ONE 

♦ TO THE NEXT 

♦ TABLE BNTRX 



♦J* 

SNITCH SET TO 
NOP IF IN POT 
PROS PRIVATE 
RELOCATABLE 
LIBRARX 



***************** 



BEADING 
WITHIN A 
. HODOLE 



*****jf> ********** 

♦ * 

♦ PREPARE FOR ♦ 

♦ BRROfi BESSAGB ♦ 

♦ •21161* ♦ 

♦ * 
***************** 



♦♦♦♦^♦♦♦♦♦♦♦♦^ 

* ERROR ♦ 

* CHART AJ ♦ 

* * 
*************** 



♦ A3 ♦ 

♦ ♦ 
**** 
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Chart AJ. IJBLNK - Non-Abort Error ana Overlay Subroutines. Hefer to Chart C2 



**** 

* * 

* A4 * 

• • 
**** 



****A )********* 

* * 

* NOTCTL ♦ 

* * 
*************** 



MOTCTL 

***** B 1********** 

* SET OF THE * 

* HON VARIABLE * 

* PIELD OF THE * 

* CABD IMAGE * 

* THE PB AREA * 
***************** 



*****£ i* ********* 

* SET UP REGS * 
♦MITH - ADDR OF * 

* VAH FLD, PR * 

* ARSA ADDR, • 
♦CNT OF BSD/LIME* 



*****£ i*********, 

* RESIST NUMBER 

* OF NOHDS 

* TO CONVERT 

* COUNT TO 9 
* 

**************•*: 



*****p 1********** 

* * 

* CONVERT WORD * 

* TO HEX AND * 
♦UPDATE REGISTER* 

* POINTERS * 

***************** 



***E 2** ******** 

CONVERT JiSD * 

VAR FLD TO * 

HEX AND * 

UPDATE REG * 

POINTERS * 

*************** 



NO .* 2SD/LINE *. 
...*. COUNT EwUAL .* 
*. .* 



**************** 



***** 3* ******** 

* • 

* ERROR * 

* ♦ 
*************** 



**Q3******* 

* * 

•TURN ON ERROR* 
* INDICATOR IN * 
* MAPSH * 



** ***c 3* ********* 

* * 

* MOVE ERROR * 

* MESSAGE TO * 

* OUTPUT AREA * 

* HO * 
***************** 



.* CARD *. TBS 

. IN ERROR OR .*.... 
*.A 12-2-9 .* 
•.CARD .* 



** ***Bii ********** 

* • 

* HOVE CARD * 

* IN ERROR TO ♦ 

* OUTPUT AREA ♦ 

* NO * 
***************** 



*****A5********** 

•MOTCTL kJ* 

*-*-*_*_*-*-*_*-* 
FONBAT CARD • 

• II ERROR * 

• • 
***************** 



-X* 



X* PRINT CARD * 

* IN ERROR * 

* ONTO SI SLOG * 
***************** 





SYSL3T 

*. 

*. .* 
*. .* 
* KBS 


.*.... 

* 


i r 

*****£ 3*** ******* 

♦LOGMSG AD* 


* 
* 


PRINT TO 
S If SLOG 


* * 




e*************** 



**•**!) 14*** ******* 
♦PRINT AD * 

*-*-*-*-*-*-*-.*-* 

* PRINT CARD IN * 

* ERROR ONTO * 

* SlfSLST * 
** *************** 



*****gq***** 
♦SPACE1 AD 

*- *—*-*-*-*-*-* 

* SPACE ONE 

* LINE ON 

* SYSLST 

** ************* 

**** * 

* * 

* F4 *.X. 



ERROR10 X 

*****j 2** ******** 
♦ LOGMSG AD* 



* PRINT ERROR *. 

* MESSAGE ONTO * 

* SYSLOG * 
***************** 



* SPACE ONE * 

* LINE ON * 

* SYSLST * 
***************** 



X* PRINT ERROR * 

* MESSAGE * 

* ONTO SISLST * 
***************** 



.* CARD *. NO 

.X*.TO PRINTER IN.*. 

*. ERROR .* 



.* RETURN *. 

. TO CALLEB . 

♦.REQUESTED.* 



**£lt******* 

* * 
RESET 
ERROR 

SNITCH 

* * 
*********** 



REQUEST 

FROM 

.AUTOLINK 



*****ji| ********* 
* 

* SET RETURN 

* ADDRESS TO 
RDNEXT 

CHART AH) 
*********** 



**************** 

X 
**** 

* • 

* K4 * 

* * 
**** 



***** 
♦AG * 
* B«* 



* K4 *.X. 



• ***K 4 ********* 

* RETURN TO * 
•RETURN ADDRESS • 

* * 
*************** 



Detail Charts 47 



Chart AK. IJBLNK - Core Image Block Building Subroutine. Refer to Chart 02 



• ***A 1********* 

* DiitDAD * 

* * 
*************** 



♦A/ 
PREPriS IS THE CONTROL 
DICTIONARY NUMBER 
OP THE LAST PrtASE 
PROCESSED IN THE CORE 
IMAGE LIBRAS If. PHSNO 
IS THE CONTROL DICTION- 
ARY NUMBER OF THE CURRENT 
PHASE IN PaOGRESS. WHEN 
THESE NUMBERS DO MOT 
MATC.i THIS IS A 
NErf PHASE. 



•*A3******* 

•SET CONSEC-* 

♦UT1VE SWITCH 

-ASSUME NEXT 

♦ CIL BLOCK TO 

* BE READ- * 

*********** 



l)ER DA D 


bl *. 








.♦ IS * 






.* 


THIS A 


* 


. 


*. 


MEM PHASE 




* 


* 


*A2 

*. .* 
*. . ♦ 
♦ YiS 


* 





**ci******* 

* modify sw * 

* DBHSW1 IN * 
PHIS RTN TO 

* BRASCH 1*0 * 

♦ FORCi I MIT * 
*********** 



*****U 2** ******** 


B3 ♦. 


♦JRITE AG * 


.* TXT * 


*-*-*-*-*-*-*-*-* 


YES .* LOAD A DDR 


* *HITE THIS *X.. 


♦. GT OR EO 

*. NEXT CI 


* COSE IMAGE * 


* 4L0CK * 


*. BLK .* 


***************** 


♦. .* 



** ***4<|********** 

* ADD C.I. BLK- * 
♦SISE TO CURRBIT* 

* CORE IMAGE TO * 
•GET BEH HICOBB ♦ 

* *R2 ♦ 
***************** 



.* HAS * 

.* MBIT C1L 
BLOCK 
• . PASSBD 



**B5******* 

* TOBi OFF • 

* COMSECUTIVE 
.1* SWITCH -MBIT 

* BLOCK TO BB 

* READ- * 
*********** 



DERDOK 

*****!> 1********** 

* COMPARE LOAD * 

* ADDS OF TEXT * 

* KITH ADDS OF * 

* PHASE ORIGIN * 



********* 



***** 



*D2 
LOAD ADDRESS It TOO LOrf, 
AND PALLS OUTSIDE THE 
PHASE BOUNDARIES. 



*E2 
IF DfclRDAD ENTERED FROM 
IJBriED, BRANCH 



**C3******* 

♦RSET CONSEC* 

•SWITCH -LOAD * 

♦AODRLON- CANNOT* 

* HE NEXT * 

♦ BLOCK * 

*********** 



D3 *. 

.♦ TXT *. 

.* LOAD ADDR *. 

•LP LOAD ADDR OF 

*. CURR CT .♦ 

*. BLK .* 



.* DOBS *. 

.* THIS TEXT *. 

*. GO IB THIS . 

♦. BLOCK .• 



• END OF 

CORE IMAGE 
*. LIB 



*****Cb********** 

♦ADlDSK AB* 

*-*_*-*_*-*_*_*-* 

.X* UPDATE DISK- * 

• ADD BBSS TO * 

* MBIT BBCOBD * 
***************** 



* YES 



**** 
•KB * 
• J* 



ER^ObO X RJTSID (GC-C4) TO COUNT 


JJiRITE .*. 


X 


EBR093 X 


*****t 1********** ADCONS OUTRIDE CSECT LIMITS. EJ *. 


*****E4»* ******** 


*****£5********** 


♦ lNI'r ERROh * 




.* *. 


* UPDATE LOC * 


* 


* 


* HSG iflTti 50 * 




.* FIRST *. YES 


* LOCORB AMD * 


• 


IBIT FOR ♦ 


* TO SHOW LuAD * 




*. TIME IN .♦... 


* HICORB MATH * 


* 


ERROR MESSAGE * 


* ADDR OUTSIDE * 




*. DERDAD .* 


* MEN ADDRESSES * 


• 


•21931* ♦ 


* PHASE LIMIT * 






* * 


* 


* 


***************** 




*• .* 

* NO 


***************** 


•*****••**•****** 












X 

***** 


X 






X 




♦AF ♦ 






DERITE1 X 


.*. 




* at* 


P1 *. 


***p ^* *********** 


*****j?3********** 


Ft *. 




• * 




ERROR A J 


♦WRITE AG* 


.* *. 




* 


.* LOAD ADDR *. YES 


*-*-*-*-*-*-*-*-* 


*_*_*_*_*_*_*_*_* 


.* COBB *. YES 




ABTERH 


*.LT PHASE ORG .*..... 


--i ^rii'iimr 


) EhHOR 
5SAGE * 


* liRITE THIS * 

♦ CORE IMAGE ♦ 


*. IMAGE LIB .*.... 








*. *D2 .* X * .•»£.< 


*. OM PBA .* 








*. .* 


•21501' 


♦ BLOCK ♦ 


♦. .* 








*. .* 


***************** 


***************** 


*. .* 








* so 






!x 


* MO 








X 






X 


X 








*****<; 1********** 


X 


*****Q3********** 


*****G *********** 








* ADD LNG TO * 


****G 2** ******* 


* RESET DERSW1 * 


* * UPDATE * * 








* LOAD ADDR AMD * 


* RD.XEXT * 


* AND MO?E * 


* SECTION ?ALUE * 

* *¥1A SfC 75 * * 








* CMP SUM TO * 


* CHART Art * 


* CONTEBTS OF * 








* ADDR OF NEXT • 


* * 


* DRPHDA IMTO * 


* IF RPS-DBVICE * 








* PHASE ORIGIN ♦ 


*************** 


♦THPdDA *JZ* 


* * * * 








***************** 




***************** 
**** * 


***************** 








■• 




* ♦ 

♦ HJ ♦.X. 














* ♦ . 










X 




**** 










DERDSW .♦. 




DERCAL X 


X 




X 


HI *. 




*****H3********** 


** ***H<t********** 


•****U 5**** ****** 


.* SUM *. BR 


* H2 


* * 


•READCI AG* 


• 




.* OF CALC ♦. YES 


LOAD ADDRESS IS TOO HIGH, * SET UP FOR * 


*_*-*-*_*_*-*-*-* 


• 


UPDATE CCW»S ♦ 


*.GT HUT PHASE.* 


AND PA ELS OUTSIDE THE 


♦ PHASE ORIGIN ♦ 


* RBAD THE * 


* 


FOR READ ♦ 


* . RI.GI N .* 


PHASE BOUNDARIS. BRANCH 


* * 


* COBB IB AGE * 


♦ 




*. *H2 .* 


IS TO ROTSID (0C-C«O . 


♦ * 


* BLOCK * 


• 




*. .* 

♦ NO 
.NOP 




***************** 


•* *************** 


***************** 




**** r 






* 


* 




♦ ♦ . 












♦ J3 ♦.X. 






X 


• 




* * 
**** 






***** 
• AG * 


i *. 


2 


DEB LOP X 


X 




* Fl* 


*****j i*********« ^ 


)RPHDA CONTAINS DISK 


*****j 3*** ******* 


*****ji|**« ******* 




* * 


* * i 


kDDRSSS OF THE FIRST 


♦STORE DISK ADDR* 


* POT THE PttASB * 




• 


* RESTORE * 1 


SLOCK OF THIS PHASE. 


* OF CURRBMT * 


♦NUMBER OF C.I. • 




FDISKIO 


* LOAD * 1 


rHPhDA CONTAINS DISK 


* CORE IMAGE * 


♦ BLOCK BEAD * 






* ADDRESS * J 


IDDflBSS OF CURRENT 


* BLOCK IN LOC * 


* IMTO LOCATIOM * 






* * ( 


:ORE IMAGE BLOCK. 


* THPHDA * 


* PBBPBS * 






***************** 




***************** 

X 

•**• 


•***•******•*•*** 

**** I 

* * . 

* K4 *.X. 

* * . 






X 




* * 


**** 






DESSW1 .*. 




* AH * 


X 






K1 *. 




* • 


**K4******* 






.* NEED *. MOP 




**** 


• * 




►***K5*******>** 


.♦TO IN IT FOR*. MO 






* TOBi OFF * 


* 


RETURN TO * 


*. MEW PHASE .*.... 






* COI E *.... 


...-X* 


LINK REGISTER * 


*. .♦ 








* SWITCH * 


* 


ADD1 


isss * 



**** 

* * 

♦ E3 * 

• * 
**•* 



**** 

* * 

* A3 * 

* * 
**** 



*********** 



*************** 
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Chart BA. IJBESD - Initialize ESD Processor and ESD Processor Card Image Check 
(Part 1 of 3). fieter to Charts 04 and 05 



REFERENCES •••** 

TO BAA3: • • 

BBC3. BBC3 * •* 

BEH2, BEHH * * 

BPD5. BP63 * 



****A1* ******** 

* * 

* CHKBPH * 

* * 
*************** 



CHKNPH .*. 

B1 *. 
.» AMY * 

.* PHASE 

•. CABDS PRO- 

*. CESSED 



*K1 



*****£ i********** 

* * 

* NOP SWITCH * 

* DBPHSW * 

* *J1 * 

* * 
***************** 



**D1******* 
♦MODIFY SH. * 

* RDS000 TO 
BR. IN TUB 

* IB MIT BTN 

* * 

*********** 



*****£ -|*** ******* 

* * 

* BOILD A * 

* DOS ft! PHASE * 

* CARD MAGE * 

* * 
***************** 



*****P1*** ******* 

* POT ADDR. AMD * 

* PHASE ID BOB * 
♦CTBL CABD SCAB * 

* BTN IN A * 

* REG * 
***************** 



****G1********* 

* EILOAD * 

* CHABT AB * 

* ♦ A4 * 



****,j-|* ******** 

* BDBBXT * 

* CHABT Afl * 

* * 
*************** 



.♦OBJECT *. 
.* NODULE ♦. IBS 
..X*. IN PBOCESS .*. .. 



***** b 2** V******* 

* SET * 

* MODSTS SWITCH * 

* ON (X*01*) * 

* BESET DBPHSM * 

* * 
***************** 



*****C 2** ******** 

* HOVE ADDRESS * 

* OF PIRST ESD * 

* RECORD INTO * 

* LOC. ESDNOO * 

* * 
***************** 



D2 *. 

RECORD 



***** g 2** ******** 

* MOVE ADDR. * 

* OP PIRST ESD * 

* tfECORD TO * 

* LOC ESD000 * 

* * 
***************** 



ESD REC. *. HO 
AFTER £3D .*..X 
REC .* 



*****e 2* ********* 

* SAVE ADDR. * 

* OB NEXT ESD * 

* IN LOC. ♦ 

* PER1DA * 

* * 
***************** 



♦A« 
PBOCBSS DUBBI 
AS IP IT BEBE 
A LEGITIMATE 
PHASE CABD. 



**•* 

* * 

• B3 *.X 



ESDRET 

*****£ 3********** 

* SET OP TEST * 

* TO DBTEBMIHB * 

* IP THE CABD * 

* IMAGE HAS * 
♦BEBM PBOCBSSBD • 
***************** 



ESD ' 

OF 
CABD 
IBAGE 



•****D 3*** ******* 

* OPDATE FIELD * 

* IN CD THAT * 

* SPECIFIES NO. ♦ 

* OP BITES TO * 

* BE PROCESSED * 
***************** 



*****g 3********** 

* POINT REG 6 * 

* TO THE NEXT * 

* ENTRY OP »A« * 

* FIELD IN CD * 

* MAGE * 
***************** 



*****P3********** 

* FOBCE THE * 

* TYPE FIELD * 

* OF CARD * 

* IMAGE TO * 

* BIHAR* * 
***************** 



****C<4******** 

* BDNEXT 

* CHART AH 
* 

************** 



♦D«» 
AM OBJECT 
HODOLE IS 
THE OUTPOX 
OF A LANGUAGE 
TRANSLATOR. TBIS 
IS A TEST FOB 
FIBST ESD/STB 
BCD IN A HODOLE. 



BSDNXT 
TES .*" 



riAS 

THIS 
A STB 

CARD 



♦ J1 
LOC COHMBF 
IS NOT MODIFIED 
IB THE READ 
IBPOT STREAM 
RTM. KEEP ADDB 
OF CABD LAST 
BEAD. 



♦K1 
A DUMMY PHASE 
CABD IS BOILT 
FOB TBK PIBST 
PHASE ONLY IF 
NO OTHEB PHASE 
CABD IS FOOBD. 
THE IiSTBUCTION 
AT THIS LOC IS 
ESSENTIALLY A 
FIRST TIME 
SBITCH. 



*****j 2** ******** 

* LOAD REG b * 

* aiTH STABX1NG * 

* ADDR. OP * 

* CABD IMAGE * 

* * 
***************** 



*****K 2** ******* 

* 

* POT ESID 

* NUMBER 

* IN REG. 5 

* 
**************** 



**** 

* * 

* B3 * 

* * 
**** 
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Chart BB. IJBESD - ESD Processor Card Image Check (Part 2 of 3) 
Refer to Charts 04 and 05 



* B3 * 

* * 
**** 



**** 

• * 

• B« • 

• * 
***• 



*****B I********** 

* * 

* BUILD CURRENT * 
♦CTRL DICT KMTRI* 

* FROB INPUT * 

* ESD ITEM * 
****** *********** 





INPUT 


*. 


YES 


ESD TYPE 




♦ . .. . 




CM 


.* 




* 


. -* 

♦ . .* 








* HO 




***** 








*BD * 




. 




* Bl* 



INPUT 
ESD TIPE 

. HXTRN 



*****D 2* ********* 
* * 

SET ESD TYPE * 
TO ER AND * 
CSNITCH TO * 
♦NOAUTO ♦ KXT8N * 
***************** 



.X* 



.* INPUT * 


. 


MO 


*. ESD TXPE 


.* 




*. VALID .* 






*. .* 






*. .* 




X 


♦ IKS 




**** 
* * 






♦ B!> * 






* * 






**** 


X 






.*. 






Fl ♦ . 






.» *. 






.* INPUT * 


. 


HO 


*. ESD TIPE 


.* 




*. LD .* 






*. .* 






*. .♦ 




X 


* IES 




**** 






* * 


I 




* B4 * 

* * 


- 




**** 


X 






•****G 1********** 




* MOVE CONTROL 


* 




♦SECTION NUB. OF 


♦ 




♦ INPUT LD TO 


* 




♦ CURRENT 


* 




♦ CTBL DICT 


* 




***************** 





.♦. 






ENLD .♦. 


ERBORHO X 


B3 ♦. 








B« ♦. 




*****B5**** ****** 


♦ ♦. 








.♦ *. 




•ERROR AJ ♦ 


BSID 


* 


MO 


.♦ INPUT ♦ 


. MO 


*_* _*_« ._♦_*_*>.*-* 


NUMBER 




.* 




♦- ESD TIPE 


*.... 


* ISSUE * 


PROCESSED. 


* 






♦ . ER .♦ 




♦ BESSA6E ♦ 


♦ . .♦ 








♦. .♦ 




* *21«0I* ♦ 


♦. .♦ 






X 


♦. .♦ 


X 


••****•****•***** 


♦ IBS 






***** 


♦ IBS 


***** 










♦BD ♦ 




♦BC ♦ 






I 






♦ Bl* 
* * 


• 


♦ CV* 

• * 






2 






* 


2 


• 






X 






BSLBCD 


X 


PRSDPC 






.*. 








.♦. 








C3 ♦. 








C4 ♦. 




X 


* *. 








.♦ ♦. 




•* **C5********* 


ESID 


* 


10 


.♦ AUTOLIHK ♦ 


TES 


♦ RDIEXT ♦ 


NUMBER 




* 




♦. REQUIRED 


.♦. ... 


♦ CHART AH ♦ 


POSITIVE . 


* 






♦ . .♦ 




♦ ♦J* ♦ 


♦. .♦ 








♦. .♦ 




*************** 


♦- .♦ 






X 


♦. .♦ 






* XES 






***** 

*BA * 

* A3^ 

* * 

* 
ESDRET 


♦ NO 

X 

***** 

♦BC ♦ 


***** 
♦BC ♦ 
♦ Bl* 

• ♦ 

* 

CI NEXT 




X 








♦ 11* 






*D3******« 


*•* 




* * 

* 

CHCALK 






INDICATE 




* 








INPUT LD 




♦ 










ASSIGNED 




* 










N CSNITCH) 
** ******* * 




* 













*****£ 3********** 

* * 
♦STORE THE CON- * 
♦TflOL DICTIONARY* 

♦ NUMBER OF CSECT^ 
♦OR COMMON ♦ E«* ♦ 
***************** 



POINTED TO Bl LD ITEM 

IN CURRENT CONTROL DICTIONART 

EN TBI 



♦ F5 
POIBTED TO Bl 
INPUT LD IT8B 



.♦ CTRL DICT 
*. EBTRI 
♦. CM 

♦.♦ F5 .♦ 



*****H i********** 

♦ * 
♦INDICATE INPUT * 

♦ LD TO BE ♦ 

♦ UNASSIGNED ♦ 

♦ fIN CSMITCH) ♦ 
****** *********** 



*****J 1********** 

♦LTESID AB ♦ 

♦—♦—♦—♦—♦—♦ » . * — * 
♦ CHECK IF CNTR ♦ 
♦SECT NO. OP INP+ 
♦LD PROCESSED*J2+ 
***************** 



IF SO, FIND THE 
CONTROL DICTIONARY 
NUMBBH OF THE 
CONTROL SECTION OR 
COMMON POINTED TO 
BT LD 



*****H 3* ********* 
♦ERROR AJ ♦ 

*-*-*-*-*-*—*-*-* 

♦ ISSUE MESSAGE ♦ 

♦ »21«2I» ♦ 

♦ * 
***************** 



****j 3* ******** 

* RDNEXT * 

* CHART AH ♦ 

* ♦ J4 ♦ 
*************** 
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Chart BC. IJBESD - ESD Processor Card Image Check (Part 3 of 3) 
Refer to Charts 04 and 05 



***** 

*BB * 
* CU* 



*****A 1********** 

* * 
♦INDICATE NOAUTO* 
•FOR Tills Eh IN * 

* CSKITCH * 

* * 
***************** 



* * * ** KEPERENCES 

* * •** TO BCB1: 
**** * BBC4, bBD2 

X 

*****H I********** 

* * 

•HOVE *HASt. NO. * 

* INTO CURRENT * 
•CONTROL DICT 10-* 

* NARY EST hi * 



*B/. 
LOCATION 
BLANKS IN 
PROCESSOR. 
MOT BLANK, 



■ EL ST IS SET TO 
s ilE i'.D CARD 

IF KM ELS T 

PROCESSING 13 



POH A SUB.1liDUl.Ah STATUS. 



EISDPC X 

*****Bj* ******** 

* 1oVE LNG PLD 

* PR Oil VAK PLD 

• OP CARD MAGJ. 

• INTO LOC 
•CSLJlTri ♦ri2 
**************** 



CUPEhENCBS 
VO BCB4; 
^ DC 2, bDEl 



*Ab 

KEEP SEARCHING POH 
A HATCHING 
CTBL-DICTIOMA&* 
ENTHI UNTIL ALL 
ENTB1ES UAV£ 
bEEN INSPECTED. 



VAR 

CLE Lit 

= Eh 



RELOCATION 


Km CI 


Oh Li.UALS 




NEXT I'OSSI 


LE i 


..AS J ORIGIN 




SINUS ASSc 


i^Li.l. 


OKliUS OF 


X 


TJIS Sj Ci.< 






**** V JJ****** 

► move 

> ASSjIMBL^D 
ADurESS OP 
T:lIS SI) OK 

» TO WOHri ARk, 
i************ 



* * 

* 

ELBSL) 



****«(;^ ********** 

•SRI COD AC * 

*-*-*—*-*—*-*-*-* 

X* CONTINUE • 

• CNTL DIC'i * 

♦ SEARCH * Ab * 



X 




ESLBC 


A> 




* . 






EUR J* 


S 










***r> ,.**•* 


BLED* 






* 




ON 




NO 




INI I'lALI 


LWORD 








h R ROW .1 L S 


DARY 


* 




* 


«jlJ'i! H 



• OK THE NEXT 

• POSSIBLE PHASE 

• ORIGIN INTO 

• SJB BT.N REG 



***** 
*ai) * 
* CI* 



***r, "I********- 

MOVE t.iASE 

.4U,1t>;:.S l.«u 

VAK FIELD 

OK CARD 

LUGE 

*********** **i 



LOC *. *ES 

Nfl-LST .» 

K.ANK .* 
* . * b2 . • 



I HIT CTfi REG 

AN J iOlNTEK 

REG POH SCAN 

OF SUBI10D TBI 



T;iE TAMABLE Pi Li*; JF T 
CARD 1.1 AGE LS UoiD AS A 
BUILD AREA PJh CONTROL 
DICTIONARY ENTMiS. 



X 

ESDSB.1 .* 



L3L FOUND 
*. iH NA.il. .* 

♦.LIST .* 



*****j I**** 



COUNT 
1-vUAL 
AERO 



*****j y * ******* * 

* SEf "SwIICil 

* EUi'DSW .>C> 
a* THAT IT F-AGS 

♦ Tills ITLii AS 

• NOrf PRJCLSb SO 

************ ***4 



****K^* ******* * 

HoVL El CODE 

INTO TfH FED 

OP irilS :>L 

FORCING IT 

BE AN EH 

*********** *+*i 



STORE 

ALIGNED AUOttr.b.': 

IN LOCATION 

NXPHKG 



X 

**»GJ******* 

CALCULATE 

RELOCATION 

FACTOR FOR 

T.ilS CSECT 



******** 



****ii j* ******** 

MOVE RELOCATION 
PACTOH INTO 

CURRENT 

CTRL DICT. 

ENTRY 

*************** 



.•• ELblSITH .*. 


E4 *. 


tb *. 


.* *. 


.* OTbEB *. 


CTRL *. KES 


.* KB N1TH *. YES 


DICT Tlh-b .* 


*. SAHK .* 


.- COMMON .* 


*. SIftdOL .* 


* . .* 


*. .* 


*. .* X 


* . . * 


* Hu ***** 


* NO 


•faP * 




* F1* 




* * 




* 




X EUPDLT 


X 




.*. 


PI *. 


Pt> *. 


.* VaB *. 


.* Eh *. 


FLU NAAE *. NO 


.* TYIF. EO. *. YES. 


PLD tiAS-IJ .♦ 


*. UXTHN Ori .*..X. 


. i-BEPII .* 


*. NOAUTO .* 


*. .* 


*. .* 



. ♦ VAR PLD *. NO 
.1HD AUTO LINK .*.... X 

*. KEO. .* 



* GET PiiASE 

* NO. EROti 

* era l. dict. 

************** 



CTRL *. 
CT. IiiASK*. 
. E k LOC . 

F'tiSMU .* 



K4 *. 

.* Prf AS t *. 

NO. FBOB 
CThL DICT 
• END .-<OOl .' 
♦.ROOT .* 



***** 
*BF * 
* Fl* 



.* CTRL 
..X*. DICT TIPE 
*. KW SD . 



****J5********« 

POBCE CTRL 
DICT TJPE 
FLD TO EQ 

LR 

*************** 



MO 
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Chart BD. IJBESD - Process ESI Item against Control Dictionary and SD Processor 
Refer to Charts C4 and 05 



***** REFERENCES 

* * TO ttDBI: 

* ** nBBJ, BBC1 
* * riBPJ, BBG3 

* bCCI. PC'.IJ 



ESLBCD X 

***** b j* ********* 

•SRCHCD AC * 

*-*-*-*-*-*-*-*-* 

* SEARCii POR * 

* MATCHING LBL * 

* IN CTRL DICT * 
***************** 



**** 

*BC * 

• C!> *.X. 



***** 

• faC • 

* B4* 



**•* 

* * 

* bb * 

* • 
*•** 



* INITIALIZE * 

* ERROR MSG * 

* KITH 43 * 

* * 
***************** 



*CJ 
fiiE CONTROL DICT. 
ENTRI MOST BE 
A COMMON. 



* 


MATCHING 


* 


510 


.* VA 




LABl-L 1M 






*. FLD TY 


* 


.CTilL DICT 
*. .* 


.* 


; 


*. conn 




*. .* 




X 






• as 




***** 

♦ BF * 

* Bl* 
* * 

* 
ELBNCD 


X 




D1* **. 






d/ 




.* * 






.* 


* 


HATCH 


** 


IES 


.♦ CTR 




MAS FOUND 




*. . . . 


*. DICT r 




.0* PHASE 


.* 




♦ . tc 




*.NAHE .» 




. 


*. CM 



♦DC ♦BLbBH 



C4 *. 






***C5*********** 


.* *. 






EBBOR AJ 


> CTRL 


*. 


NO 


*_* -*-*_*-*-*-*-* 


DICT TTPB = 




*. ... 


SEND 


►. SD 


** 




* MESSAGE * 


*. .* 






•21431 • 


*. .* 




X 


***************** 


* »ks 




***** 


. 






*Bh * 




. 




• Al* 


. 



* CTHL 

DICT ENTRI 
♦. AM ER . 



CTHL 
DICT TfPE 
.= COMMON . 



VAA flu 

PIPE EC 

COMM 



* hAMB *. IES 

FIELD OF PC .* 

*. riLANK .* 



INITIALIZE 

ERROR MSG 

TO 4 



***J1**** ****** 

UBhOii AJ 

*-*-*-*-*-*<-*_*- 

SEND 
e.h«OH MSG * 
•21401* 
*************** 



****K i********* 

* RDNEXT * 

* CHART AH * 

* * 
*************** 



TYPii 
PL 

CJ .♦ 



***** i ? / * ******** 

♦ COMP LEMGTii OF 

* CTKL SECT 

* CAKu IMAGE 

• CTRL DICT riOTRI 

**************** 













ELbINT 




BJ* *♦. 










. * ♦. 










.* CTRL 


* 




IES 




♦. DICT ENTRI 




*, * 






♦. AN SD . 


* 








*. .* 










*. .* 






X 






► NO 






***** 


* 


***• 








*BF » 




♦BE * 








* G1* 


* 


* B1 *.X 

* • 
***♦ 








* * 

* 

EUPTRI 


EHR046 i 












*****f j* 


i******** 






* 










* INITIALIZE 




* 






* ERROR MSG 




* 






* 4< 






* 





****D5********* 

• RDNEXT * 

• CHART AH * 

• * 
*************** 



CTRL *. IES 




DICT = &H .*..X 




.* 




». .* 




*. .* X 


* go ***** 


•BF * 


* Hl» 


* 


* 



* 


.* CTRL ^ICT ♦. 

. ENTRI LN(, .♦ 

*.FLD rilGh .* 

* . . * 

*. .* 


IES 






► NO 






> 


»****«**4 




* 
* 
* 
* 
* 
* 


noVr- LENGTH * 

PROM CARD < 

IMAGE TO « 

CTHL DICT « 

♦JJ « 

**************** 








X 





***** 

*dF * 
* j?1* 



*************** 



***G3** ********** 
ERROR AJ 

*_*_*_*_*_*_*_*_* 

SEND MSG 
* ERROR * 

•21461* 
***************** 



****rt 3** ******* 

* RDNBXT * 

* CHART Art * 

* * 
*************** 



GET THE LONGEST 
LENGTH IN 
THE CONTROL 
DICTIONARY. 



*K3 
REG B SUPPLIES 
THE CONTROL DICT. 
NUMBER AFTER EXECUTION 
OF THE SUBROUTINE 
STARTING AT LOCATION 
LTBSID. 



X ELBIIT 

.*. ELbDSD 

F4 *. *****p5********** 

.* *. •XTPH10 AF * 

CTRL *. IES *_*_*_*_*_*-*_*_* 

DICT T1PE .* X* GET PHASE * 

. EO SD .* * NUMBER « 

*. .* * * 

*. .* ***************** 



.* LD OR *. 
IES .*Lfc IN CTRL *. 
...*. DICT. UN- . 
♦.ASSIGNED .* 



ESID 

NUMBERS 

BATCH 



PROCESSED 
. IN THIS . 
♦.PHASE.* 



IS THE 
SD II THE 
. ROOT 



X 
***** 
*BF * 
* B1* 

* * 



ASflBLD 

ORIGINS 

HATCH 



***** 
•BF * 
• El* 



ELBNCD 
ELBGSD X 

*****J5********** 

* MAKE REG 8 * 

* EO TO A * 

* NEGATIVE * 

* CTRL DICT • 

* NUMBER *K3 • 
**** ************* 



***** 
*BF * 
* PI* 
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Chart BE. IJBESD - ESD Processor (LD/LB). 3efer to Charts 04 and 05 



BLBLD X 

*****A 1*00^****** 

* rOKCfc * 
*LD IN VARIABLE * 

* PIELD TO BE * 

* AN LR * 



♦A4 
THE LAST 2 BITES OF THE LD ENTRI 
IN 1HE CONTROL DICTIONARY HAVE 
THE ESID NUMBER OK THE SD. 
I'riE EXIT TO TaE SUBROUTINE 
AU.ONS THE CONTROL DICTIONARI 
ADDRESS OF TdL SD TO b£ EXTRACTED 
USING IdB ESID NIIHBEH AS A KEF. 



******* 



******** 



* COMBON * 


IES 


LABEL SABE 


*... . 


*. AS LD .• 




♦ .LABEL.* 




*. .* 


X 


♦ HO 


* ** ** 




*BD * 




* P3* 




* * 




• 




LRROUfo 


Cl" **. 




.* *. 




* CTRL * 


. IfES 


dict ttpe 


*.. . . 


». ty eh .* 




*. -* 




*. .• 


X 


* NO 


***** 




*BP *£LBlMf 




* El* 




* « 




* 


* 


HLeNLR 


Dl" ♦. 


*****D 2** ******** 


.* CTRL *. 


♦RESET VARIABLE * 


* DICT AS- * 


YES * PIELD TYPE * 


SIGHED AS SD. 
*.LD, OR LR.* 


* X* FROM LH TO * 


* LD * 


*. .* 




*. .* 


***************** 



ELbLDR X 

*****£ 3** ******** 

* GET ESID * 

* NUMBER OF * 

* THE SD THE * 

* CTRL DICT LD * 

* BELONGS TO * 
***************** 



C3 *. 

.♦ ESID *. 

.* OF CTRL ♦. 

•.DICT MATCHES . 

♦ESIU OF CD.* 

♦.IMAGE.* 



*C<* 
THIS EXIT TO TflE SUBROUTINE 
PROVIDES THE CONTROL DICTIONARY 
ADDRESS OF THE SD POINTED TO 
til THE HSID NUMBER IN luE 
CARD IMAGE LD ITEM. SEE *A4. 



MO 



***** 
*BA * 
* A3* 



****D J********** 

SET UP LJJK * 

REG NITH * 

SUBROUTINE * 

RET ADDRESS * 

* 

**************** 



'***£ 1********* 

TURN ON 

POSSIBLE 

DU I UIC ATE 

ENTH 1 SNITCH 

I**** ********** 



A SM B LD 

JblGlNS 

r.^UAL 



* GET CTRi. DICT * 

* ADDft OF SD * 
♦POINTED TO * A4* 
***************** 



*****24*«* ******* 

* PUT ADDR OF * 

* ORIGINAL CTRL * 

* DICT ENTRI * 

* -INTO REG 9 * 

* * 
***************** 



* F4 *.X. 



* MAKfc VA8 TYPE * 

* FLi) LUUAL TO * 
*LR IF NECESSARY* 

* * 
***************** 



.* CARD *. 
.* I.lAGE LD * 
♦.NOP ASSIGNED 



«****P3********** 

* PUT CTRL * 

* DICT ADDR OP ♦ 

* SD ITEM IN * 
*A <*ORK REGISTER* 

* * 
***************** 



ELENA S X 

*****pt4******** 

•XTPHNO AF 

*_*_*-*_*_*_*_* 

* GET PBASE 
♦NUMBER OF CTRL 

* DICT ENTRI 
*************** 



* NO 


**** 




_ 


m 






* Gb * 
















• * 




* F4 * 












**** 


* 


















**** 




* 


I 






* 


X 








X 








.* . 






X 


.*. 




EHROH3 X 


'*2 *. 




*****Q 3* ********* 


G* *. 






*****G5*** ******* 


.* *. 




♦PUT THE ESID OF* 


.* IS *. 






• * 


.♦ CTRL *. 


NO 


* 


THE SD THE * 


.* CTRL DICT * 


. NO 


* INITIALIZE * 


*. DICT r»Pfc -* 


* 


CARD IMAGE * *ENTHY IN CORK. 


.* 




* BR ROB MESSAGE * 


*. £U SD .* 






BELONGS TO * 


*. PHASE .* 






* NITH 43 * 


* . . * 




* 


REG FOR S/RTN * 


*. .* 






* * 


*. .* 


X 


*< 


*************** 


*. .* 




X 


***************** 


* JES 


**** 






* IBS 




***** 






* * 










*BF * 




• 


* b3 * 

• * 
**** 




* 


* 




* B1* 

* * 
* 




X 






. 


. 




ELBNCD 










X 


X 






X 


A2 *. 




*****U 3** ******** *****j)4*«* ******* 




• **U5**********« 


.* CTRL *. 




* 


SET OP REG * * 


► TORN ON 


* 




ERROR A J 


.♦DICT NUMBER*. 


YES 


* 


INPUT AND LNK * * 


► POSSIBLE 


* 




•-*-*-*-♦-*-*-*-< 


*. IN LD EQ SD .* 


* 


REG RET FOR * < 


* DOPLICATE 


* 




SEND 


*. NUMBER .* 




* 


SUBROUTINE * < 


► ENTRY SNITCH, 


* 




* ERROR BSG • 


*. .* 






* 4 


► DPNTSN 


* 




■21H3I* 


*. .* 


X 


*4 


*************** i 


t* *************** 




***************** 


* NO 


***** 

*BA * 

* A3* 

* * 

* 

ESDRET 




" : 


X 

***** 
*BA * 








EHR043 X 






X 


* A3* 








*****j i* ********* 






***j3********** 


• * 






X 






•LTCDAD AB * 


• 






****J5********* 


* INITIALIZE 




*- 


*_*_*_*_«_*_*_* 


ESDRET 






* HDNEXT * 


* ERROR MESSAGE * 




* 


GET CTRL DICT * 








* CHART AH • 


* WITH a J < 




* 


ADDRESS OF * 








* * 






•POINTED TO * 04* 








*************** 


************ ****: 




***************** 











****K f* ******** 

* RDNEXT * 

* CHART AH *] 

* • 
*************** 



***K;>** ********** 

ERROR AJ 

*_*-*_*_*-*_*-*_* 

SEND 

* ERROR MESSAGE* 

•2103I* 

***************** 



SD *. IES 
LABELS .*.... 
MATCH .* 



* NO **** 

* * 

* B«* * 
X * * 

**** ••** 

* * 

* Gb * 

* * 
**** 
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Chart BF. IJBESD - ESD Processor Update Linkage Table and Control Dictionary 
Refer to Charts C4 and 05 



***** BBPBREBCBS 

* * TO BFB1: 

* ** BOU, BDC1 
* * BDG1, BDH5 

* BBG4 



* GET CTBL MCT * 

* BOHBBB ABD * 
♦ADDRESS Or I EXT* 

* CD BBTBT * 
***************** 



*****c 1********** 

* UPDATE TO * 

* THE IEXT CTRL * 

* DICT ADDB. * 

* LOC. CTLDAD * 



EOPDOK 

*****C2********** 

* BOTE TTPE * 

* PBOB VABPLD • 

* OP CARD IMAGE * 

* TO LBK. TBL. * 

* * 
***************** 



*****D -|********** 




D2 *. 


•CDSIZB AP * 




.* IS *. 




BO . 


* THIS A *. 


* CHECK POR * 


...*. 


NOB PROCESS .* 


* CTRL DICT * 




*. SD .* 


* OVERFLOW * B4 * 




*. *A* .* 


***************** 


X 


*. .* 




**** 


* IBS 


**** • BEPERBBCES 


* * 




* * .TO BPB1: 


* G2 * 




* * *.I. BCP5, BDD3 


• * 




* * - BDB4, BDJ4 


**** 




•*** . BEC1, BBP1 






UT X 




X 


••••*£ !**♦♦♦*♦♦♦♦ 


*****g2********** 


* HOPE THE * 


* 


HAKE THE • 


* VARIABLE PLD * 


* 


TYPE PLD OP * 


* IHTO THE CTRL * 


* 


LBK. TBL.= * 


* DICTIOHART * 


* 


TO SD * 



* IHITIALIZB * 
.X* EHBOfi BSG. * 

* 1ITH 41 * 

* * 
***************** 



SERD EBROB 
* MESSAGE * 
•2141I* 
***************** 



****C 3*****»* ** 

* BDHEXT * 

* CHART AH * 

* * 
*************** 



* D3 *... 

* * 
**** 

ESCBCD X 

*****D3********** 

* GET CTRL * 

* DICT 10- ABD * 

* ADDR. IB A * 

* PA IB OP REGS. • 

* * 
***************** 



♦A4 
A BOB-PROCESS SD IS AB 
ESD-SD ITEM HITH HO 
HATCBIHG LABEL IB THE 
LABEL LIST. THIS IS 
HON AB BXTSBBAL 
BEPBBEHCB. 



* B4 
IP OT EBP LOW HAS OCCURRED, 
THE SDBBOOTIHB DOBS BOT 
BETUBB COBTROL TO THIS 
BOOTIBB. 



X 
BOPDXT .*. 

C5 *. 
.* A *. 
XES .* BOB- *. 
...*. PROCESS SD .* 
OP PC .* 



X 
***• 

• * 

* D3 * 



*„ 



EPHOLD X 

** ***D4*«* ***** ** 

• GET ESID * 

• BOHBBB OP * 
•CTRL DICT BBTBT* 

• IB BEG OSBD * 

• IB SOBBOOT. * 
***************** 



***************** 

**** 1 BEPEREBCES 

* ♦ .TO BPP1: 

* * *.X. BCB4, BCP5 

* * . BCJ5, BDH2 
•*** X BDJS 

.*. 
PI *. 



***************** 



*****P2********** 

* HAKE CTRL * 

* DICT. BO. * 

* BBGATITE ABD * 

* RESET S HITCH * 

* BOPDSH * 
***************** 

**** 



*SA¥B CTBL DICT * 
*BDBBBB ABD SET * 

* OP REG HUH * 

* ESID MDRBEB. * 
***************** 



*****Q 1********** 

*LTBSID AB * 

*-*-*-*-*-*-*-*-* 

* GET CTBL DICT * 

• IBPO * 



* G2 *.X 



**** 
EOPDCN X 

*****G2********** 

* STOBB CTBL * 

* DICT. BOMBER * 

* IB LIBK TBL. * 

* ABD ADD 1 TO * 

* ESID BOBBBB * 
***************** 



.* CTBL DICT *. IBS 
*. BBTBT OHAS- .*.... 

*.SIGBBD LD.* 
*.OB LB.* 



* P3 *.X. 

* * . 
**** 

EPHSCB X 

*****P3********** 

* POIBT AT BBXT * 
♦CTBL DICT BBTBI* 

* ABD DBCBBASE * 

* CTBL DICT * 

* BOHBBB BI 1 * 



.* CTBL *. 

. DICT BO. 
*. 6T BOOT .* 
*. BO. .* 



ESID *. IBS 
BOHBBB A .*... 
. BIBOS .* 



** ***p4********** 
•LTESID AB * 
*-*-*-*-*-*-*-*-* 

* DBTBBBIBB 



B5 *. 
.* AMI *. 

.* LEG. BCFD *. X! 
• -PROB SD ITEH .*. 
*. * J3 .* 



*****P5********** 

* SEX PBOGRAH * 

* SB. DPBTSH * 

* TO XBD. XERO • 
•LBG. CTBL SBC. * 

* PBOCESSBD * 
***************** 



* # 

* C5 * 



************ 



* B2 * 

♦ ♦ 
**** 



*** 



*BA * 
* A3* 

♦ ♦ 



*J3 
BBB LOAD ADDBBSS 
BQOALS LOAD 
ADDBBSS PLOS 
LBBGTH . 



ESID ♦. 

TO BE BI- . 
. PASSED .♦ 



*****J4*** ******* 
• FLAG. CTBL. ♦ 



*** **s 5********** 

• SET SWITCH • 

• DBBDSM TO * 

• SHOE XERO LBG * 

• CTRL SECT * 

• ASSOBBD-BOP * 
•♦*♦ ************* 



.* *. 

.* CTBL. * 
♦.SECT LEG. BQ 



*****K«******** 
• TALOB IB 
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Chart CA. 



IJBOTH 



Initialization Refer to Chart 06 



**** 

* * 

* A2 * 

**** 



***** j********* 
* 
* IJBOTH 

*************** 



IJ60IH X 

*****B1**** ****** 

* RELOCATE * 

* ADDRESS * 

* CONSTANTS * 

* 11 PROGRAM * 

* * 
***************** 



.* OBJECT *. 
- MODOLE III . 
*. PROCESS .* 



****** 2** ******** 
♦MOTE SET SECTOR* 
♦READ COUNT. OR * 

* TIC FROM EPS *. 

* TABLE TO COI * 
*CHN FOB SISLNK * 
***************** 



*****B 2* ********* 



***************** 



**D i******* 

TOR* OH 

SHITCa 

HODSTS 

* 

*********** 



*****£)********** 

* SAVE STARTING * 

* DISK ADDRESS * 

* OF MODULE * 

* IH LOCATION * 

* ESDNOO * 
***************** 



F1 *. 

* 

ON 
SJtSLHK 



****** 3*** ******* 

♦INSOOO AA* 

*-*-*-*-*-*-*-*-* 

I* OPDATE DISK * 

* ADDRESS TO * 

* MBIT RECORD * 
****** ******** ** * 



**a 3******* 

RESET RECPOO* 

TO NOP, SET OFF 

.X*MODOLE PROCESS * 

SNITCH LOCATION 

* MODSTS * 

*********** 



* REGISTERS 
I* FOR CONTROL 

* SCAR 
* 
*************** 



OTHIBC X 

****** 5********** 

* POUT TO * 

* NEXT TABLE * 

* BBTBX TO * 

* CONTINUE SCAN ♦ 

* * 
***************** 



COU4T 
BOUAL 
ZEBU 



OTHTJTP 

*****]> 3******* *** 

* MODIFY BRANCH * 
•INSTRUCTION AT * 
♦LOCATION OTHiSR * 

* IITH BRANCH ♦ 

* ADDRESS * 
***************** 



.♦ CARD *. 
r*PK MATCH 

TABLE 
. ENTRX . 



KBROOO X 

*****c^********** 

* INITIALIZB * 

* BBBOR MESSAGE * 

* FOB INVALID ♦ 

* CARD TIPE * 

* • 
***************** 



***D5************ 
ERROR A J 
*-*-*-*-*-*-*-*-* 
SEND EEBOB 
MESSAGE * 
•21001* 
*************** 



****£t, ********* 

* RDNEX1 * 

* CHART AH * 

* * 
*************** 



F3 *. 
.* HAS *. 

A PHASS *. 
CARD BEEN 
.PROCESSED.* 



*****G 1********** 

♦ SAVE STARTING * 

♦ DISK ADDRESS * 

♦ OF MODULE ♦ 

♦ IN LOCATION ♦ 

♦ ESD000 * 
***************** 



IS IT 

AN END 

CARD 



**** 
♦POT 

*ESD 



*G 3********** 
ADDRESS OF * 
TIPE TABLE * 

* INTO A * 

* REGISTER * 

* * 
***************** 



****H 3** ******* 

* EXLOAD * 

* CHART AH * 

* * 
*************** 



** K i******* 
SET S8 RECFOO 

* TO BRANCH, * 

SET CCW 

* DSKNHT TO * 
* HOOP * 

*********** 



*****j 2 /** ******** 

* SET END CARD * 

* SMITCH AND * 

* RESET FIRST * 

* NON-CONTROL * 

* CARD SMITCH * 
***************** 



t 

♦***K^* ******** 

* RDNEXT 

* CHART Ad 
* 

*************** 



***** 

♦OF ♦ 
♦ A1* 

* * 



TXTPRC 
IES 



***** 
♦CC ♦ 
♦ B2* 



RBPROC 
ELD 



♦CD * 

♦ B1* 

* • 
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Chart CB. 



IJBOTH 



Text Processor Eeter to Chart 06 



**** 

♦ A3 * 



HBFEiiENCES 
TO CUB 1 : 
CAF4, CCHU 



*****& 3********** 

* LOAD ADDR OF * 

* THE FIHST * 

* BITE OP TIP * 

* IN i BEG. * 

* * 
***************** 

♦ *** * 

* * 

* B3 *.X. 



•POT ESID BOMBER* 

* IN BEG POB * 

* SUBROUTINE * 

* * 
***************** 



*B2 
MULTIPLE EXITS PHOfl SUB- 
ROUTINE DEPENDING ON 
CONDITIONS POUND THE BE. 



TXTGBT X 

***** B 3********** 

♦DBRDAD AK * 

*_*-*-*_*-*-*-*-* 

* SET OP CORE * 
♦IMAGE BLOCK IN * 

* if K ABBA ♦B* * 
***************** 



THIS SOBBOOTIBE LOCATBS 
TBB COBB IBAGB BLOCK 
THAT THIS TEXT BELONGS 
TO, IP NBCESSABX. IT 
BEADS TUB COBBBCT BLOCK 
INTO LOCATION WKABEA. 



* GET CTBL DIST : 
♦INFO AND RELOC 

* FACTOR * B2 



.* ESID ». 

NUMBER 

PROCESSED 



***p 2* ********* 

ERROR AJ 

*_*_*_*_*_*-*_*_ 

.X SEND BBROR 

* MESSAGE * 

•21701* 
***************** 



.* ESID *. 
.* NUMBER TO *. YES 
. BE BTPASSED .*.... 



* NO 


**** 




* 




* H*» 




* 




**** 


X 




.. *. 




P1 *. 




.* ESID *. 




NO .* SOMBER *. 




...•POINT TO CONTR.* 




♦ . SECTION .* 




*. .* 




X *. .* 




***** * its 




♦CD * 




* rt3* 




* * 




* 




ERR05S 





*****C3********* • 

* CALC MAX * 

* BYTES OF TXT * 
♦LOAD ADDS PLOS • 

* NUMBEB OF • 

* BITES ON CO * 
**************** * 



*****D3********** 

* CALCULATE * 

* LOAD ADDBESS * 

* IN LOC (iKABBA * 

* *C4 * 

* * 
***************** 



*****£3*** ******* 

* CALCULATE * 

* NUMBEB * 

* OP BYTES * 

* MINOS 1 - * 
♦LENGTH MINOS 1 * 
***************** 



*****? 3********** 

* SOBTBACT * 

* LOAD ADDR OF * 

* NEXT C.I. BLK * 

* PBOM MAX LOAD * 
*ADDB *P4* 
***************** 



*****G 1********** 

* CALC LOAD * 

* ADDR . ASSBMB. * 

* ORIGIN PLOS * 

* RELOC. PACTOB * 



*C4 
TUB LOAD ADDBBSS IN LOCA- 
TION NKABBA IS BOOAL 
THE STARTING ADDRBSS 
NKABBA PLOS TBB LOAD 
ADDBBSS OF THIS TBXI 
MINOS THB LOAD ADDRBSS OF 
THIS COBB IMAGB BLOCK. 
THIS EFFECTIVELY COMPUTES 
A DISPLACEMENT PBOM TUB 
STABTING ADDBESS OF 
NKABBA. LOAD ADDBBSS OF 
THIS COBE IMAGE BLOCK IS 
EOOAL TO PHASE ORIGIN 
LOAD ADDBBSS PLUS SOHB 
HOLT IP LB OF THE COBB 
IMAGE LIBRARI BLOCK SIZB. 



•Ft 
LOAD ADDBBSS OF NBXT COBB 
IMAGE BLOCK IS HICORB. 
MAXIM OH LOAD ADDBESS 
TUB LOAD ADDBBSS OF THB 
LAST BYTE IN THIS TEXT 
RECORD. 



* ALL TXT 

PIT IN THE 
*. BLK 



******** 



***** 



***H 2** ********** 
ERROR AJ 

*_*_*_*-*-*_*_*-* 
.X SEND ERROR 

* MESSAGE * 

•2150I* 
***************** 



*****j i********** 

* GBT NUMBEB * 

* OP BXTBS OP * 

* TXT ON THIS * 

* CARD IN A RBG * 



******* 



******** 



NOMBER 
OP BYTES 
.OP TXT=0 



*****{] 3******* ** * 

* CALCOLATE * 

* NOMBER OF * 

* BYTES THAT * 

* CAN BE MOVED * 

* * 
***************** 



*****J3********** 



***************** 



*****K 3********* * 

* OPDATE TXT * 

* POINTER. TXT * 

• LOAD ADDBBSS * 

• AND • 
BYTE CO0NT 



****************: 



****tj <|***** **** 

* BDNBXT * 

* CHART AH • 

* * 
*************** 



**** 

* • 

* A3 • 

* • 
•*** 
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Chart CC. 



IJBOTH 



SEP Processor. Berer to Chart 06 



REPkUC X 

•****£ 2* ******* 

*p«rLsr ad 



*****c^* 



I******** 



SEX UP Cal. 

AND SDDh ISFO 

FUH CONVERT 

SB LiOUTINl. 

- *********** 



*** 



*CNVJiEX AC * 

*-*-*-*-*-*-*—*-* 
♦CONVERT ASSU1. * 

* OHlGIh 10 * 

* BINARY * 



*■***£.£.*♦******* 

i>i'01-i: 

CONVENED 1N70 

1M TXT CAhD 

FOSMA'l iri 

CARP iMAGc 

*********** **** 



*****£ J********** 

* * 

* INITIALISE * 

* MUBBEK OF * 

* BfTiSS CONVERTED* 

* CTK. TO ZERO * 
***************** 



shiprxr x 

***** c j«* ******* 

* INITIALIZE 

* CUT. INPO POK 

* TXT CONVEBT 

* SJBttOUTINE 
* 
**************** 



*********** * 



STOttB * 

CONVEi<TED * 

fir LI* CARD * 

LAk^E * 

*************** 



**** 

• * 

* an ♦ 
**** 



** ***gi 4 ******** 

* KEEP A 

* RUNMIiG 

* COUNT OK 

* COMVEttTZD 

* t)*IES 
*************** 



5TES -* CiiAfl * 

....*. IH CD IflAGE 

*.JSU COftRA .* 



**** *Qi ( ** ****** 

* TEST Fuii 

* bND OF TAT 

* ON I.EP CAiil) 

* IflAGE 



***** 



******** 



******** 



INITIALISE 
MESSAGE 
*!Tii bl 



t***^ ******** 

3ST UP C-iT. 

AND i'SIf NO 

FOh CONVihf 

RJUTlNf 



*********** 



CriAR * 

IN CD IMAGE 
.By 3L.ANK .* 



** ***^^*********« 

* STOHE * 

* MJflBEK OF * 
♦CONVERTED BITES* 

* 1* CARD IflAGE * 



********* 



**** 



***P5************ 

EBRO& AJ 

*-*-*-*-*—*—*—*—* 
.1 SEND EBJ30H 

* SESSAGE * 

•21t>11» 
***************** 



**** G t> ********* 

* BDMKXT * 

* CHAKf Ad * 

* * 
*************** 



♦****J 


/** 


*** ***** 


* GET 

* op r 

* i p 

* CAfc 


lU.1 


L>i\J.!>S * 
ai.VUS * 
t»LP * 

rtAGi: * 


****** 


► ** 


******** 



**** 
* * 



COR BELT ' 
NUiltJEH UF 

.BfTxlS ON .' 
*i»EP Cu.* 



***** 

• CU * 

* bl* 



» INITIALIZE 

.X* ERBOR flESSAGE 

* HITri 11 J 



***j 5***** ******* 
EEBOB AJ 

*-*_*-*-*-*-*-*-* 

SEND EBBOR 
» flESSAGE * 

•Z113I* 
***************** 



****Kb ********* 

* itDM&XT * 

* CHART AB * 

* * 
*************** 
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Chart CD. IJEOTH - RLD Pass 1 Processing (Part 1 of 2). Reter to Chart 06 



*A2 

HrifN i^Ii'Cti «Li>»(1 IS SOP, 
R- AiM^ P- i OUTER PROCESSING 
IS FOhCED. WHEN THE SWITCH 
IS BRANCH THE REMAINING RLi> 
INPORnATION IS PROCESSED. 



**** 

* * 

* B5 * 

* * 
**** 



ZERO BfTES * 

PROCESSED * 

COUNTER * 

* 

*************** 



* GET CTRL * 

* I/ICS* NUflBER * 

* OP P-POINTER * 
***************** 



*****(; 1* ***** ** 


** 








CJ *. 


* FORCE 








.* p- * 


* PROCESSING 


* 






HO .* POINTER 


* R- AND P- 


♦ 






*. PROCESSED 


* POINTERS 


* 






*. *P2 


* *A2 


* 




**** 


*. .* 


***************** 




• * 


*. .* 








* D2 * 


* JfES 


**** . * 






* * 




* * . 






**** 




* D 1 * . .X . 






. 


. 


* ■ * 








X ........ .- 




**** x 




X 


RLRET .*. 






i 


.* . 


JV * . 






***D 4?* *********** 


D3 *. 


.* *. 






BRROh AJ 


.* * 


.* END * 


. j an 


*_*_*_*_*_*_*_*_* 


.* P-POItfTER 


♦. OF 


.* 




SEND ERROR 


*. TO BE 


*. CARD .* 






* MESSAGE * 


*. REPASSED 


*. .* 






•21701' 


*. .* 


*. .* 




X 


***************** 


*. .* 


* HO 




***** 




* NO 






*CE * 












* A 2* 












* * 

* 










RLWRIT 








X 










X 


*****£ I***.******* 




X 


**EJ****** 


* LOAu Rb 






****v^********« 


♦SET SrflTCH 


* UlTrf POINTER 


* 




* RDNEIT * 


* RLrfRIT 


♦ TO RLD ITEB 






* CrfAET Art * 


* TO NOP POR 


♦ADD 4 TO BKTES 


* 




* * 


* OUTPUT POR 


* PROC COUNTER 


* 




*************** 


* PASS 2 


*************** 


► * 








********** 



KLSTP X 

*****£4* ********* 

♦STORE CTRL DICT* 

* NUMBER OP P- * 

♦ POINTER IH * 
♦POINTER PU) OP * 
♦RLD CARD IB AGE * 
** *************** 



*****C4*«* ******* 
♦LTES1D AB ♦ 

*-*-*-*-*-*-*-*-* 

* GET CTRL DICT ♦ 

* NUMBER OP ♦ 

* R-POiNTEB * 
***************** 



•*♦**(; |******** 

♦ ADD 1 TO THE 

♦ NUMBER OP 

♦ RLD ITEilS 

♦ IN CURRENT 

♦ PriASE 
*************** 



*F2 

skip ma ADCO.U if a 

MINUS CONTROL DICTIONAR* 
NUflBEh HAS DETECTED. 



**pj******* 

♦SET SrflTCH ♦ 

* CRTS* 

TO INDICATE 

* VALID RLD 

♦ ITEM ♦ 

*********** 



.* 


alr.ED ♦. 






TO 


PROCESS ♦. 


BR 




POINTERS .♦ 








♦A2 .♦ 






** 


.* 








♦. .♦ 




X 




* NOP 




►*** 






* 


B5 






* 


**** 




X 






♦♦v 


1 1* ****** 








* 








RESET * 








RLSW 1 * 






TO BRANCH ♦ 







*****G j********** 


* TEST CTRL 




♦ DICT ENTRI 


* 


♦ DETERMINE IP 


* 


♦ P- POINTER 


* 


♦POINTS TO SD/PC^ 


***************** 


**** 






*CB ♦ 






* PI ♦.X 






* * 






•*** 






ERH055 X 




*****HJ********** 


* 


* 


♦ INITIALIZE 


* 


* ERROR MESSAGE 


* 


♦ wm 


I 55 


* 



*****£ <f ********** 

♦SAVE CTRL DICT * 

♦ NUflBER OP fi- ♦ 

* POINTER IN R- ♦ 
♦POINTER PU) OP ♦ 
♦RLD CARD IMAGE * 
***************** 



.♦ POINTER ♦. 

♦.POINTS TO EH . 

♦.OR COHMOM.* 



*****G ************ 

♦ MOfR HEX , BQ» ♦ 
♦INTO fl-POIMTBR ♦ 

♦ PLD OP CARD ♦ 

♦ IflAGE AS PLAG ♦ 
♦POR PASS t * H5* 
***************** 



.♦. 

B5 ♦. 

.♦ NEXT ♦. 

► RLD ITEMS 

HAVE SAME 

►.POINTERS .■ 

*.* G5 .♦ 

♦. .♦ 

* no 



**C5******* 



*********** 



**l>5******* 
♦SET SNITCH ♦ 

♦ RLSN1 TO 
■0P.P0RCE 

♦ R- AMD P- 
♦PROCESSING ♦ 

*********** 



**£5******* 

* KESET ♦ 
♦SNITCH CMTSM ♦ 

♦ ASSUME P- * 
♦P0IMTER TO BE* 

♦ BI PASS ED ♦ 
*********** 



********** 



PLAG BITE HAS A BIT 
SNITCH THAT SIGNALS 
THIS CONDITION 



*H5 
THIS PLAGS THE R- 
POIMTEB AS AM tti OR 
COMHOM-HHBM LOAD 
ADDRESSES ARE 
COHPUTLD AM 
ASSEMBLED ORIGIN IS 
SUPPLIED POR THE ER 
OB COMMON. 



POINTER 
POINTS TO 
. SD/PC . 



*********** 



***J <|***** ******* 
ERROR AJ 

*—*-*-*-*-*-*-*-* 
.X SEND ERROR 
♦ MESSAGE * 
•21551 • 
***************** 



****K<|*** ****** 

♦ RDM EXT * 

♦ CHART AH * 

♦ * 
*************** 
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Chart CE. 



IJBOTH 



RLD Pass 1 Processing (Part 2 of 2). fiefer to Chart 06 



A2 *. 

.* ALL *. 
.* ADCONS *. YES 
*. BYPASSED IN .*.... 
♦.THIS CARD.* 
*. *C3 .* 
*. .* 
* NO 



**B^******* 

* hES ET * 
SWITCH 

RLilRIT TO 
BRANCH 

* • 
*********** 



***C 1****** ***»» 
EHROh AJ 

*-*_*-* -* _*-*-*-* 
SEND ERROR X 
* MESSAGE * 

•2 156 !• 
***************** 



****D !***•»♦ *** 

• RDNEXT 

* CHART All 

*************** 



INVALID 
RLD CARD 
. PORMAT 



.* DOES *. 
IKS .* VAR FLD * 
...*. OF CD IMAGE 
*PIT IN 1/U.* 



********* 



***p / ******** 

SEStl BITES 

IN I/O AREA 

COUNTER TO 

ZERO 



RLbYMH X 

*****i;^** ******< 

* CALCULATE 

* ADDRESS WITHIN 

* I/O AREA Pufl 

* RLD I TEH 



**»*d^**»****** 

ADD HYTES IN 
I/O AREA AND 
BITES IS CArtD 
IMAGE VAK FLD 

*************** 



•***J 2* ********* 
STORE BITE * 
COUNT JUST * 
CALCULATED * 
IN I/O AREA * 
BYTE CNT FLD * 

**************** 



*CJ 
IP THE ENTIRE 
VARIABLE FIELD 
OF THE CARD 
IMAGE IS TO BE 
BYPASSED- THERE 
IS NO NEED TO 
MRITE THESE 
ADCONS ON 
SYS001 POH 
USE IN PASS 2 RLD 
PROCESSING. IF 
AN! ADCON OF A 
SINGLE CARD IMAGE 
IS TO BE 
PROCESSED, THE 
ENTIRE CARD 
IMAGE IS 
WRITTEN OUT ON 
SYS001, bUT THE 
ADCONS TO BE 
SKIPPED ARE 
FLAGGED *ITH A 
MINUS CONTROL 
DICTIONARI 
NUMBER. tASS 2 
HLD PROCESSING 
CAN TEST FOR 
THESE ADCONS 
AND SKIP THEM. 



**** 

* • 

* t>4 * 



*****B4******** 

* HOVE CHAfcS 

* PftOll TdE RLD 

* CARD IMAGE 



****i;jt****«* 

* RDNEXT 

* CHART AH 

************ 



Detail Charts 59 



Chart CF. 



IJBOTH 



End Processor (Part 1 of 2). Refer to Chart 06 



***** 

♦CA * 

* H4* 



•*♦• 

* * 

* A3 ♦ 

* * 
**** 



**** 

• * 

• A« • 

• • 
**•* 



BNDPBC X 

*****A |********** 

* SET HODST FOB * 

* MODULE ENDED * 

* AID ATBLSR * 
♦IMMEDIATE EXIT * 
» TO RDNEXT * 
***************** 



.* IN POT 

from 

♦ . SISLNK 



.* NAMED ♦ . HO 

..!♦. SUB -MODULAR .*. .. 
*. PROCESS .* 



**B 2* ****** 

* TURI OPP * 

* SOB-NODULAR * 
* STATUS SWITCH * 

* SBMDST * 

* t>IT 7 * 
*********** 



*****£ 1********** 

» GET POINTER * 

* TO NEXT * 

* DISK * 

* ADDRESS * 

* ON SIS001 * 
***************** 



*****£ 1* ********* 

♦INS00O-4 AA» 

*-*-*-*-*-*-*-*-* 

* ISSUE I/O TO * 

♦CHECK SEED FOR » 

• PDATE * 



.* THIS 
MODULE 
♦.FINISHED 



D2 ♦. 

.♦ WAS ♦. 

.♦THIS MODULE. 

. AUTOLINKiD .♦ 



**g / .«****** 
♦SET SWITCH ♦ 

♦ ATRLSW TO ♦ 

BR FOB ♦. .X 

♦ CONTINUED ♦ 
♦ AUTOLiWK ♦ 



**** 

♦ * 

♦ Hi ♦ 

♦ * 
**** 



*****p i********** 
♦STORE ADDR. OF * 
♦NEXT CD. IN LOC* 

♦ NDS00O AND ♦ 

♦ RhSET RECP00 » 

♦ TO NOP * 
***************** 



** *** A 3******* ** * 

• BESET BSDMOO ♦ 

* AMD BMDPBB * 

♦ SHIFT PEBIDA ♦ 
♦LEFT SIX BITES ♦ 

♦ ♦ K5 ♦ 
*• **** **** *** * ** * 



*****B3********** 

♦ SHIFT PERIDP ♦ 
♦LEFT ORE BITE- ♦ 

♦ NESTED SECTOR ♦ 

♦ BUCKET ♦ 

♦ * 
***************** 



.♦ INPUT ♦. NO 
NOW ON .♦... 
♦. SISLNK .♦ 



**D3******* 

♦RESET HELD ♦ 

♦LIB INPUT SW ♦ 

♦ TO NOP AND ♦ 

♦ V LIB SW TO ♦ 

♦ BRANCH ♦ 

*********** 



♦ LOC ♦ . 

NDSOO0 ♦. IES 

EO TO .♦..X 

4ERO .♦ 



.♦ THIS ♦. 

MODULE ♦. YES 
FINISHED .♦..X 



X 

.♦. 

A5 ♦. 



.* TRANSFER 

ADDRESS 

•.ACCEPTED 



.♦ LABEL ♦. 
NO .♦ AVAILABLE ♦. 
...♦.FOR TBAMSFER . 
*. ADDR. .♦ 



* H«4 * 

* * 
**** 



♦ THIS ♦. 

HODULJb ♦. YES 
FINISHED .♦ 



BO V PER X 

**j i******* 

♦SET PRIVATE^ 

♦ LIB. SWITCH ♦ 
♦ PVLbSW FOR * 

♦ PROPER INPUT ♦ 
♦ ♦ KU ♦ 

*********** 



*****£ 1**** ****** 

♦MOVE DISK ADDR.^ 

♦ OF NEXT CARD ♦ 
♦INTO LOC.ONSOOO^.... 
♦AND SECTOR VAL-^ 

* Of TO LNKSV ♦ 
***************** 



*****£ 2** ******** 

♦ * 

♦ TURN OPF END ♦ 
X^ CARD SWITCH ♦ 

♦ (SBMDST BIT 3) ♦ 

***************** 



ENDRTS X 

*****U2^ ********* 

♦ TORS ON END ♦ 

♦ CARD ERROR * 

. ..*♦ SWITCH ENDERR ♦X 
X ♦IN ERROR RTS ♦ 

♦ * 
***************** 



♦ NESTED ♦. 
SUB-MODULAR . 

♦ . STATUS .♦ 



****&2** ******** 



**************** 



*****H 3*** ******* 
♦MOVE DISK ADDH.^ 

♦ FROM NDSOO0 ♦ 

♦ TO ONS000 ♦ 

♦ (BYPASS MODULE) ♦ 

***************** 



*****J3********** 

♦ CLEAR NDSO0O ♦ 

♦ -NEXT AVAIL. ♦ 
.♦ CHAR. SISLINK ♦ 



************ 



C4 *. 
.♦ ESID ♦. 
.♦ NUMBER IM ♦. 10 
♦. END CARD .♦... 
♦. IMAGE .♦ 



•LIST CARD tITH * 

♦ XFER ADDRESS * 

* * U5 ♦ 
***************** 



*****D «♦♦♦♦♦* 
♦LTESID AB ♦ 
*-*-*-*-*-*-*-*-* 

* GET CTRL DICT ♦ 

* HUMBbR OF ♦ 

* XFER POINT ♦ 
***************** 



BBOXFR X 

*****C5** ******** 

♦ POT STARTING * 

♦ ADDR. OF CTRL * 

♦ DICT II A REG *X. 
♦FOR DICT. SCAN ♦ 

♦ * 
***************** 



***** 
♦CG ♦ 
♦ Bl* 



.♦ ESID ♦. IE 

TO BE .♦.. 

♦.BIPASSED .♦ 



***p5************ 
ERROR A J 

*-♦-*-»- ♦ - » -*-♦-» 
SEND ERROR 



*S?i!* 



**** 

* * 

* cs ♦ 

* ' • 
***• 



***************** 



• *** 

* * 

♦ HI ♦ 



*****G <»*♦♦♦♦♦♦♦♦♦ 
♦HOVE CTRL DICT.* 
*H0 TO THE ESID * 

* FIELD OF THE ♦ 

* CARD IMAGE ♦ 

* ♦ 
***************** 



♦ an ♦.x. 



**** 



*****i]ii****#***** 

♦MOVE ASSEMBLBD ♦ 

♦ ORIGIN CTRL * 

♦ DICT NO. AND ♦ 

♦ TRANSFER LBL * 

♦ TO SAVE AREA ♦ 
** *************** 



**JI******** 

♦ TURN ON ♦ 
SNITCH 

TRFRSW FOR 
SLMKEDTb 

♦ PHASE ♦ 
*********** 



***• 

*K4 
S HITCH SET TO 
NOP IF INPUT 
FROM SISBLB. 
SET TO BB IF 
INPUT NOT PROM 
SYSRLB. 



****G5********* 

* RDNBIT * 

* CHART AH • 

* * 
*************** 



*H5 
THE CARD IS LISTED 
IN CASE AN INVALID 
TRANSFER LABEL 
IS FOUND. 



♦J5 

DETERMINES THE 
ROUTINE THAT GETS 
CONTROL AFTER 
AUTO LIN KIN 6 HAS 
TAKER PLACE. 
ANOTHER BR CAN BR 
ROTO LINKED AT 
THIS TIME. 



•K5 
THIS LOADS PERIDA 
IITH THE ADDRESS 
OF THE STATEMENT 
AFTER THE INCLUDE 
STATEMENT JUST FINISHED 
PROCESSING. SEE LABEL 
LIST BHTRX FOR PERIDA. 
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Chart CG. IJEOTH - End Processor (Part 2 of 2). Berer to Chart 06 



BUDSCD .». 






ai *. 






.* CTRL ♦ 




.♦DICT ENTRY 


'* 


..X*. 


IS UkASSIGRED 


. 


* . LD/LR 


* 


* 


*. »* 
*. .* 




**** 


* yes 




B1 • 


'. 





CTRL 
DiCP NO. 
. A ilHOS 



• *♦* 

* * 

* D1 ♦.X. 

* * 

• ♦*♦ 
ENOMS X 

**#**D 1* ***•***< 
* 

* POUT TO NEXT 

* Cl'RL DICT 

* FN TRY 
• 

** *********** **l 



.* SCAM * 

OF DICT 

FINISHED 

*B2 



*****f i********** 

* SET NEXT ♦ 

* AVAILABLE LMK * 

* T3L ADDH E^ * 

* TO BFlUNHIMG * 

* OP TABLfc * 
***************** 



*****Q 1* ********* 

* SFT UP * 

* VALUKS POK * 

* TAB IX CLtAR * 

* ix)OP * 

***************** 



♦ LRK *. 

TABLE ♦. ItS 
CLEARED -*... 

*H2 .* 



*****J 1*********: 

• 

* MOVE ZEROS 

* 1MTO LMK 

* TABLE 
* 
**************** 



K1 *. 

.* MOKE •- 
YBS .*TBL SUTRIES*. 
...*. TO BE 

*. CLEARED .* 



* NO 

i ' 

**** 

* * 

* an * 



***C/+******* 

ERROft A 

*-♦-*-*-*-*-*- 

SEND i.HROH 

.1 ESS AGE 

************** 



♦♦♦*D2*»******« 

* RDNEXT * 

* CHART AM * 

* * 
*************** 



*ii2 
CAUTION- 

COSTROL D1CTIONAHY 
IS BJILi PROS HIGd 
TO LO«J STORAGE. 
i'.-iE SCAN OF 
THE DICTIONARY' 
iS PROM LOW TO iJIGtf 

sro.wAGtr. 



.* ZERO *. 

YES . * LRG SD 

♦. PROCESSED 

*. *i»5 



****«C4*** •**•*•* 

* * 

* TEST FOR * 

* VALID COHTEOL * 

* SECTION LUG. * 

* • 
***************** 



♦ INITIALIZE • 

• ERROR AESSAGE * 

* KITH 58 * 

♦ • 
***************** 



*Bi 
SWITCH DEEDS* 1M CORE 
IBAGB BLOCK 40UT1ME 
SIGNALS THIS 
CONDITIO!. CHART AH. 



***E5************ 

ERROR AJ 
•-*-*-*-•_*_*-*_* 

.X SEND ERROR 
* BtSSAGE * 
•21581' 
***************** 



EISCSL X 

*****pi|********** 

* CALCULATE * 

* NEW NBXT * 

* POSSIBLE * 

* PHASE ORIGIM * 

* * 
***************** 



**Git******* 
» RBSBT * 

* SWITCH USED 
TO SHOW ZERO 

* LUG CSECT 

* *B5 * 
*********** 



*H2 
LINKAGE 
TABLH CLfcARED 
APTEK EACH 
SODULE HAS 
BEEN PROCESSED 



****a5********* 

* BDNEIT * 

* CHART AH * 

* * 

*************** 



****J4********* 

* ALMKPR * 

♦ CHART AG * 

• • 
*************** 
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Chart CH. IJEOTH - Write SYSC01 Subroutines, fieter to Chart 06 



♦A 1********* 

*RS00 1 * 

* 
************ 



♦ADO 1 TO riLOCK * 

..x* cou.nt anl * 

* SET UP CCfc * 

* * 
***************** 



*****g2*« ******** 

* SVC WklTE * 

* TA fE AND ♦ 

* tfAlT (SVC 7) * 

* FOR I/O TO * 

* COMPLETION * 
***************** 



****** 3********** 

* * 

* SAVE THE NEW ♦ 

* DISK ADDRESS * 

* IN CNS000 * 

* * 
***************** 



*****tj 3*** ******* 

* SKT OP CCH * 

* TO URITE * 

* COUNT KEX ♦ 

* AND DATA * 

* * 
***************** 



***C J* ********* 
DISKIO AG 

*-*-*-*-*-*-*-* - 

* »hite disk * 
***************** 



****44**» ****** 

* * 

* HKSF01 * 

* * 
*************** 



*. PIRST TIME 



***** B 5********** 

• INITIATE REG * 

* All) SWITCH * 
.X* POM SECOND * 

•LOGICAL R&COBD • 



******** 



******** 



EHH091 

*****0 i /* *******: 

* INITIALI4F 

* POR 

* KRROR MESSAGE 

* • 219 11* 
* 
***************j 



*****K 1********** 

* INS.LRT DISK * 

* ADDRESS IN * 

* COO NT FIELD ♦ 

* OP OUTPUT * 

* R iJCOR D * 
***************** 



*****p I******** 

* SET SECTOR 
♦VALUE TO ORIENT 

* TO CURRENT 

* RECORD ON 

* s rs oo i 

**************** 



*****G 1********** 

* MOVE SET SEC- * 

* TOR . OP TIC * 
♦PROrt RPS TABLE * 

* TO CCW CHAIN * 

* FOR S1S001 * 
***************** 



*****H |********** 

* DECREMENT * 

* DISK ADDRESS * 

* TO SEARCH ON * 

* RECOKD MINUS * 

* ONE * 
***************** 



****J1********* 

SET UP SYSTEM 

OVLRFLOH 

P ACTORS 

*************** 



*****£ 1********** 

♦AD1DSK AE* 

*-*-*-*-*-*_*-*-* 

* UPDATE * 

* DISK ADDRESS * 

* * 
***************** 



*****D j** ******* 

* SAVB 

» SECTOR VALUE 

* FOR CURRENT 

* RECORD ON 

* STS001 
**************** 



CLRBXT 

*****B 3** ******** 

♦ ZERO THE * 
♦NUMBER OP BJTTES^ 

♦ SUBPIELD IN ♦ 
♦THE RLD OUTPUT ♦ 

♦ AREA ♦ 



****P3********* 

♦ RETURN TO ♦ 

♦ LINK REGISTER ♦ 

♦ ADDRESS/ ♦ 
*************** 



***C4***** ******* 
PD1SK10 AG 

*-*-*-*-*-*-*-*-* 

NRITE BLOCK * 



*****0(l ********** 



***************** 



*****£4*** ******* 

♦ INITIATE REG • 

♦ AND SNITOiES ♦ 

♦ FOR PIRST ♦ 
♦LOGICAL RKCORD ♦ 

♦ * 
***************** 



****p«********* 

♦ RETURi VIA ♦ 

♦ LINK REGISTER ♦ 
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Chart DA. IJBSCN - Initialize Control Card Processor, tfefer to Chart 07 



**** 

* Ab * 

• * 
**** 



****& 1********* 

* * 

* IJHSCM * 

* * 
*************** 



IJBSCN 

**8 1******* 

♦SET PROGRAM^ 

* SWITCH * 
* BHhNML TO 

* BRANCH * 



*********** 



*****C1*** ******* 

* LOAD A REG * 
♦WITH THE INPUT * 

* AREA ADDR AMD * 

* ANOTHER WITH * 

* A ONE * 
***************** 



iik V K 

SECTOR VALUE 

IN PERUb 

************** 



**B2******* 

* * 
* hfiSfeT * 

SWITCH 
♦RECP00 TO SOP* 

* * 
*********** 



♦ Gb 
**** 



*****i) 1********** 
♦SKI Pa DE * 
*-*-*-*—*-*-*-*-* 

* SKI* BLANKS * 
♦GET POINTER TO * 

* OP ER ATI OH * 
***************** 


D2 *. 

.* NON *. 

.♦ COMMA *. YES 

*. DELlMlTEh .*... 

*. POUND .* 

♦. .* 

* . .* 


REFERENCES 
TO DAB2: 
DBH1, DBJJ 
DCD4, DCE1 
I DCK1, DDub 
.*. PPG2 


* NO 
**** 

* * *.x! 

♦ * .X 

**** 

X 


tl *. 


*****£ ^** ******** 


.♦ OP *. 
.* FIELD *. IES 

*. EQUALS .* 

*. f»Tt<Y .* 


* INITIALIZE * 

* trtROL * 

* 1f5SAt.t: * 

* tfllri A 10 * 





IBS .♦ FIELD 


*. 






.*. 


EQUALS 


.* 




* 




*. CATALii 
*. .* 


* 




X 




*. -* 






**** 


* MO 




• 




* 






* 


ES 


* 






* 




* 








**** 


- 










X 








****> 






* 


INITIALIZE 


* 






* 


ERROR 


• 






* 


MESSAGE 


* 






* 


KITH A 01 


• 



***************** 

**** • REFERENCES 

* * * r" TO DAF2: 

! \ •*• DBF2. DECO- 

* * ; DEF5, DEG<4 



CLEAK *. NO 

\hA£. .*. .. 

LIST .* Bt. 



* St I o»ITCrf 
♦RECPJO TO A fcR 
*KCR Di.SK l/u 
* *K2 * 



*****.j 1* ********* 

* MOVE ShT SEC- * 

* rot, itEAD cnt * 

*OR TIC PROrt RPS» 

* TABLE TO CCW ♦ 
*CHN POH SySLNK * 
***************** 



*****i^ >/ /* ******* 

* at;sf.r 

* NAME' LIST, 

* M.1Ei>ST, TO 

* 3 ^A ii K 3 

*************** 



SEND ERROR MSG 
•21101*, *.»111l* 
•2112i»,*21l4l* 



♦DISK i/O UPDATE* 

* TO NEXT * 

* KECORD * 
***************** 



*****& 1*** ******* 

* * 

* STORE CONTEHT * 

* OP REGISTER 2 * 

* IN LOC PERIDA * 

* * 
***************** 



♦X2 

THIS HILL ALLOW 
ROUTINE INS00O 
TO UPDATE TO 
NEXT RECORD AND 
EXIT IMMELlATELY 



**************** 



SKIP BLANKS 
TO FIRST 
OPERAND 



***** 
*DB * 
* Al* 



PIELD 

EQUALS 

ENTRY 



*****£ 3** ******** 

* INITIALIZE » 

* ERROR * 

* MESSAGE * 

* WITH A 16 * 

* * 
***************** 



*D $***** ******* 
ROB AJ 
-*-*-*-*-*-*-* 
SEND ERROR 

HESS AGE ♦ 

•21011* 
************ 



.♦ CTRL 
* CARD 

WITHIN 
*. MODULE 



FIELD 

EQUALS 

PHASE 



*E4 
MULTIPLE 
RETURNS 



***P4*** ******* 
ERROR AJ 

*-*-*-*-*-*-*-*- 
.X SEND ERROR 
* MESSAGE * 
•21161* 
***************** 



***** 

**** * 

* * 

* Eb *.X. 



***£5********* 

RDMEXT * 
CHART All * 
* 
************** 



* F5 *... 

* * 
***• 

X 
*****f 5********** 

* * 

* SAVE DISK * 

* ADDRESS OF * 

* NEXT RECORD * 



* Gb ».A. 



***** 
♦DC * 
* A1* 



***• x 






GBTVHB .*. 






G5 *. 






.* MAS ♦ 






.* A DUflHI 


* 


. IBS 


*. PHASE CARD 




.♦.. . . 


*. BUILT 


* 




*. *UH .* 






*. .* 




X 


* MO 




***** 






♦ AG * 






* bb* 






* * 






* 


. 




ALMKGT 



*-*-*-*- 



***************** 



*ti»* 

IP A PHASE CARD 
HaS ALREADY BEEN 
BUILT, GO DIRECTLY 
TO PROCESS THE 
PHASE CARD. 



J3 ♦. 

* OP 
FIELD 
" UALS 
TION 



*****H5********** 
♦IMIT LOCATIONS * 

* DbLMKD.PHCSi, ♦ 

* PHfERfl, AMD ♦ 

* DSPLC ♦ 

* * 
***************** 



•****J5********** 
♦BXTBCT DB^ 

*_*_*-*_*-*_*_*_* 

* POT OPERATION « 

* FLD 11TO LOC * 

* PttfBRB *E4 • 
***************** 



*_*-*_*_. 



SEND ERROR ♦ 

* MESSAGE * 

* *2117I* * 
***************** 



**** 

* * 

* Eb * 

* * 
**** 
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Chart DB. IJBSCN - INCLUDE Card Processor and Entry Card Processor, Refer to Chart 07 



***** 

♦DA * 
* C5* 



♦ Ai » 

» * 

**** 



INCCRD X 

*****& 1********.** 

» LOAD REG * 

♦ WITH ADDRESS * 
» OF ISCLPR * 

♦ TO FtTCH CARD ♦ 

♦ PROCESSOR * 
***************** 



**H1* ****** 

* 10 kh opf * 
named sub- 
modular sh 

•fiHSbSU • 



*********** 



IN POX 

from 

SYSRLB 



**D 1******* 

* TURN 08 * 
IS POT PS OB 

SISttLB SW 
IN tgRIDA«tt ' 

* BIT 5 * 
*********** 



IriCCRDI 

*****£ j*** ****** 

* SET SH PHCSti 
♦TO ALLOW BLANK 

* OPERATION AND 

* SET a KG 7 *ITH 
♦A DDR Of PH NAMiS 
**************** 



*****p 1********** 

♦EXTRCT" DE ♦ 

*_*_*_*_*_*_*_*_* 

* HIT OPERAND * 

* INTO LOC. * 

* PHSAME * 



***** A 2* ******* ** 

* SEP ERRNML TO * 

* NOP. point * 

* NEXT CHAR AND * 

* INITL CTR * 

* rfl'TH NAME CNT * 
***************** 



*****3^* ********* 

* MAKE LOC * 

* UMELST TriE * 

* WORK AREA FOR * 

* THE EXTRACT ♦ 

* S0BKO0T1NE * 
***************** 



*****C 2* ********* 
♦EXTRCT DE * 

*_*_*_*_*_*_*_*_* 

* PUT MODULE * 

* NAME lit ♦ 

* NAME LIST * 
***************** 



.* DELIMITER ♦ . NO 
♦. Ej COMMA .*. .. 



*****A3********** 

* BACK UP ♦ 

* THE INPUT * 

* POINTER ONE * 

* CHABACTBR * 

* * 
***************** 



.* LAST *. 

♦ CHAR Ew *• MO 
RIGHT .*... 

♦. PABE8 .* 



**Ci******* 

* TURN ON * 
NMSBS* 

AND 
SBMDST 

* * 
*********** 



.* ALL *. 

* MODULE *. 

NAMi. MOVED . 

*. To LIST .* 



INITIALIZE 

ERROR BSG 

WITH m 

*************: 



****D 3********* 

* BRANCH TO * 

* ADDRESS 1* * 
♦REGISTER 9 *F5 * 

*************** 



B3 *. 

* 

hlGHT 



*****P3********** 

♦UPDATE DB ♦ 

*-*-*-*-*-*-*-*-* 

♦ POINT ♦ 

♦ TO NEXT ♦ 

♦ CHARACTER ♦ 
**************** * 



....X^ Jj ♦ 



***************** 



.♦NEXT ♦. 
CHARACTER ♦. NO 
Ey LEFT .♦... 
. tAHBN .♦ 



*****j i********** 

♦ * 

♦ INITIALISE ♦ 

♦ ERROR BSG ♦ 

♦ WITH H ♦ 

♦ * 
***************** 



LOC 

NflELST 

BLANK 

♦. ^ES . 



♦ ♦♦J 2** ******** 

ERROR AJ 
*-*-*-*-*-*-*-*— 
.X SEND ERROR 
♦ MESSAGE ♦ 
•21331* 
***************** 



* K2 ♦.X. 

* ♦ 
**** 



*****Ci|********** 
•PBTLST ID ♦ 
*-*-*-*-*-*-*-*-* 

♦ LOG ♦ 

♦ CARD ♦ 

♦ IMAGE * 
***************** 



•****D4********** 

♦ LOAD REGISTER ♦ 

♦ WITH ADDRESS ♦ 

♦ OF ALNKGT TO * 

♦ FETCH CARD * 

♦ PBOCESSOH ♦ 
***************** 



*****£4********** 

♦EXTRCT DF ♦ 
*-*-*-*-*-*_*_*-* 

♦ POT OPERAND ♦ 

♦ OP ENTRI CARD ♦ 

♦ INTO PHNABE * 
***************** 



♦ J3 ♦ 

♦ * 
***♦ 



X 
***** 
*DA ♦ 

* E2* 



♦♦K /********* 
RDNEXT ♦ 
CHART AH ♦ 
* 
************* 



FIRST 

OPERAND 

BLANK 



** K 4******* 
•SET SIITCH ♦ 

♦ HODSTS TO 
.X* INDICATE 

* UNNAMED SOB 
~ MODULAR ~ 



***** 

♦DC ♦ 
* Bl* 

♦ • 



SAfCTL X 

*****|>5********** 

* SA?B • 

* DISK ADDRESS * 
...X* OF THIS ♦ 

« ENTRY CARD ♦ 

* * 
***************** 



***** 
♦AG • 

♦ BH* 



THE NESTING LIBIT 
IS FITS. IF A DB- 
L1HITER HAS NOT 
BBEN FOUND AFTER 
ALL MODULE NABBS 
HATE BBBN BONED, 
AN ERROR EXISTS. 



THE NAME LIST WILL 
BB BLANK BXCBPT 
WHEN A NAMED 
SOBHODULAR IS 
STILL BEING 
PROCESSED. 



♦ F5 

TO ALNKGT (CHART 

AG) OR TO INCLPR 



♦65 
BT SPECIFIIMG THE 
LOCATION NHELST AS 
TUB WORK AREA, THE 
EXTRACT SUBROUTINE 
IS USBD TO BUILD A 
NAME LIST FOR THIS 
INCLUDE STATEMENT. 



**** 

* * 

♦ A2 ♦ 

• * 
**•* 



**** 

• ♦ 

♦ A3 ♦ 

* * 
**** 



* K2 * 

* * 
**** 
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Chart DC. 



IJBSCN 



Phase Card Processor (Part 1 of 2). fieter to Chart 07 



**** 

* * 

♦ A4 ♦ 



AOTOLINK 

IN 

. PBOCESS 



*****£,?* ********* 

* * 

* INITIALIZE * 
.X* ERROR MESSAGE * 

* »2125l» • 

* * 
***************** 



** ***j|4********** 

* • 

* POT MAI LNG ♦ 

* OP HEX FIELD * 

* 111 A REGISTER * 

* * 
***************** 



81 *. 






***B^** ********* 


.* ♦. 






BRROR AJ 


* AUTOLINK * 


. 


fES 


*-*-*-*-*-*-*-*-* 


REQUESTED 


.* 




SENi> 


*. .* 






* MESSAGE * 


». .* 






•212bl» 


*. .♦ 




X 


************* *** * 


* HO 




***** 








*DB * 










* B5* 










* * 










* 










SA¥CTL 






• **0 f******** 






X 


RTLST AD 


* 




****C2********« 


*_*-*-*_*_*-*- 


-* 




* RDMEXT ♦ 


PRINT 


• 




* CHART AH * 


CARD IHAGE 


* 




* • 




* 




*******K 


******** 



* POT HEX * 

* OPERAND INTO * 

* LOC DBLNRD * 
***************** 



.♦ COMMA *. 
.* DELIMITER *. 
. INSTEAD OF . 
•APOSTBOPttE.* 



***************** 



* PUT * 

* OPERAND INTO * 

* PHMAME * 
***************** 



***** 
•DA * 
• u2* 

* * 



ILLEGAL * 


IES 


THE FOLLOWING CHARACTERS: 


*-•-*-•-*-*-*-*-* 


DBLIHITLB 


*- . . . 


A-2, 0-9, 1, », *, a. 


* POINT TO * 


.* 






* NEXT IN POT * 


*. .* 






* CHARACTER * 


♦. .* 


X 




***************** 


* NO 


***** 
♦ DA * 




; 




* E2* 








* * 
* 




• 




ERR010 




" m 


-*. 






X 


PI *. 




*****p i /* ********* ***p3*********«c** 


*****P4*** ******* 






* * ERROR AJ 


♦CHDEL DE * 


i-HASE ** 


. NO 


* INITIALIZE * *_*_*_*_*_*_*_*_* 


*_*-.*-*-*-*-*_*-* 


NAMii VALID 




X* KRROfa MESSAGE * X SEND ERROR 


* TEST TIPE * 


. * E2 .* 




* ■21211* * * MESSAGE * 


* OF DELIMITER * 


*. .* 




* * »2121I» 


* * 


*. .* 




***************** ***************** 


***************** 



.* NEXT *. 

. OPtHAND A . 

♦PLUS SIGN..* 



**•* 

*DD * 

* B4 *J[ 

* * 
**•* 

DSPRTN 

*****{] |********** 

♦UPDATE DE^ 

*-*-*-•-•-*-*-*-• 

* POINT TO NEXT * 
♦CHARACTER IN I* 

* NPUT * 
***************** 



•***G j********* 

♦ RDNBXT * 

♦ CHART Ad * 

♦ * 
*************** 



DfcLEX T X 

**H «*****•* 

♦ SET PHCSH ♦ 

* TO SHOW A 
• NOB COMMA 

♦ DELIMITER 

* * 
*********** 



♦ OPERAND 


• . 


NO 


A HEX DIS- 




*.. .. 


♦. PLACEMENT 


.*" 




♦. .♦ 






♦ . .♦ 




X 


♦ TES 




***** 
*DD ♦ 
♦ hi* 

• * 

* 

DECDSP 


K1* *♦. 






.* ♦ 






♦ NEXT 


'*. 


NO 


CHAB EO 




♦.... 


♦APOSTROPHE 


,*" 




♦ . -* 






♦- .♦ 




X 


♦ IBS 




***** 






♦DA ♦ 


. 




♦ E2*ERR010 



**•• 

* * 

♦ A4 * 

• • 
**** 



•****J4********** 

* CALCOLATE ♦ 

* NOHBBB OP HEX ♦ 

* BITES TO BE * 

* CONVERTED * 

* TO BINARY * 
***************** 



*****K4********** 
•CNVHEX AC * 

*_*-*-*_*-*-*-*-* 

♦ CONTERT * 

♦ DISPLACEMENT ♦ 

♦ TO BIVABI ♦ 
***************** 



***** 

♦DD ♦ 
* C2^ 

• * 
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Chart BD. IJBSCN - Phase Card Processor (Part 2 ot 2). flefer to Chart 07 



•DC * 
* J1* 

* * 



**** 

* * 

* A2 * 

* * 
**** 



***** 
•DC * 
* G1* 



• LOAD A REG * 

• WITH MAX LMG • 

• POR DEC I HAL • 

• DISPLACEMENT * 
****** ******* **** 



***** B i********** 

•EXTRCT DE * 

*_*_*_*_*_*_*_*_* 

* POT OPBBAMD * 

* II TO LOCATION * 

* CNVBOC * 
****** *********** 



*****£ 1********** 

* ♦ 

* IMITIALIZE * 

* ERROR MESSAGE * 

* »2102I« * 

* * 
** *************** 



*. K=1024 



*****B 2* ********* 

* * 

* MOLTIPLI BY * 

* CONSTANT * 

* 102*» * 



NTABS X 

*****&3********** 

•EXTHCT DE • 

*_*_*_*_*_*_*_*_* 

* POT OPBBAMD * 

* IIITO LOC * 

* SYMBOL * 
****** *********** 



.* *. HO 

*. DELIMITER .*... 

*.EO. COMMA .* 



QOAPRO 

*****A5** ******** 

•UPDATE DB * 



.* DELIMITER *. IBS 


•-J 


»-*-*-»-♦-♦- 


..X*. EQ LEPT .*..... 


...X* 


SOI IT TO 


*. PARBN .• 


• 


■EXT IIPOT 


• - -• 


• 


CHARACTER 


♦. .* 


** 


•••*****•**< 


• 10 






***>* 






• * » 






• B<* *-X- 






* * 






**** x 






CBDEMD .*. 




X 



***** 
♦DP * 

• B2* 

* * 



***** 
•AG • 

• B5* 
• • 



•****B5********** 

•BXTRCT DB • 

*_*-*-*-*_*_*_*_* 

• POT UOALUPIBR • 

• IITO LOC • 

• QOAULP • 
***************** 



*****g i********** 

* * 

* R EDUCE * 

* CONSTANT * 

* LENGTH BY ♦ 

* ONE * 
***************** 



.* *. YES 

♦ .DISPLACEHKNT .*... 

♦.NEGATIVE .♦ 



*****D2* ********* 

♦ * 

♦ ENSURE * 

♦ NEGATlVfi * 

♦ DISPLACEMENT * 

♦ * 
***************** 



STORR5 X 

*****£2*^ ******** 

* STORE • 

* CONVERTED * 

* DISPLACEMENT * 

* VALDK IN LOC • 

* DISPLC • 
***************** 



IES .• DELIMITER •. 


IBS .* ILLEGAL 


...*. BO PLOS .• 
*. SIGN .* 


...*. DELIMITER 


♦ . 


*. .* 


*. -• 


*. -* 


*. .* 


* NO 


• MO 



. * DELIMITER •. 10 


X NO .* DELIMITER ♦. 


*. EQ MINOS .*... 


....X.*. EQ RIGHT .* 


*. SIGN .* 


*. PARKM .• 


*- -* 


•- ..• 


*- -• 


X •. .* 


* IES 


***** * YBS 




•DA • 




• 82* 




* * 




• 


. 


BRB010 


X 


X 


**B4******* 


*****£5*********« 


* SET PMCSN * 


•OPDATE DB • 


• TO SHOB A • 


•—♦-♦—♦-♦-♦->•-•-» 


► NEGATIVE • 


• POINT TO • 


•DISPLACEMENT * 


• NEXT INPUT • 


* * 


• CBARACTBR • 


*********** 


***************** 






***** 
•DC • 
* HI* 



CHAR *. NO 

IN RANGE .*... 
o-y .* 



:****Q f********** 

* 
POINT TO ♦ 

THK NEXT ♦ 

CHARACTER * 
III INPUT * 

**************** 



NON- * 


NO 


COMMA 


*. . .. 


DELIMITER.* 




♦.FOUND.* 




*. .* 


X 


* YES 


***** 




♦DP * 




* B2* 




* * 




* 




PHCOPTN 


a/ '*. 




♦ *. 




* 


NO 


DELIMITER 




A BLANK .* 




*. .* 




*. .* 


X 


* IES 


***** 




*DA * 




* E2* 


X 


♦ * 


***** 


• 


♦AG * 


ERR010 



************** *** 





...♦. 


DELIMITS 8 .* 






• 


. A COMMA .• 


***** 






•« «• 


♦DE • 


X 




*. -• 


* HI* 


***** 




• BO 


* * 


•DP • 






* 


• B2* 

• • 




i 



*****j i********** 


***j 2** ********** 


* 


* 


ERROR AJ 


* PACK AND 


* 


*-*-*-*-*-*-*-*-* 


• CONVERT TBE 


* 


SEND ERROR 


• DECIMAL PLD 


* 


* MESSAGE • 


• TO BINARY 


* 


•21021* 


***************** 


***************** 


X 
**** 




'. 


* • 






* A2 ♦ 






• * 




X 


**** 




****K2** ******* 



*****J *********** 
•PBTLST AD ♦ 

*_*-*-*-*-*-*-*-* 

• LOG • 

• CARD IHAGB * 

• * 
***************** 



***** 
•A6 • 

• B5* 

• • 

* 

ALHKGT 



*************** 



• SAVB ADDRESS • 

* OP THIS CARD • 

• IB CTLSPB * 

* * 
***************** 



****K5**«****«* 

• ALBKPB • 

• CHART AG • 

• * 
*************** 



66 DOS/VS Linkage Editor 



Chart DE. IJBSCN - Skip Blanks and Extract Field Subroutines (Part 1 of 2) 
Refer to Chart 07 



***** 1********* 
• * 

* SK1PB * 



ADD ONE TO 

CARD IMAGE 

ADDRESS 



CARD 
IMAGE 
IOC A 
BLANK 



*B2 E 

A DELIMITER IS A 
CHARACTER THAT SIGNALS 
TUB END OF AN OPERAND. 
THIS CHARACTER IS ALSO 
CALLED k STOP CHARACTER. 



****C 2* ******** 

* RET TO LI UK * 

* REG ADDR * 

* * 
*************** 



****A3********* 

* • 

* EXTRCT * 

* * 
*************** 



*****B3******** 

* SJiT MAX CHAR 

* CRT IN A HBvi, 

* AND SET REG 

* POINTER TO 

* OPERAND AREA 
• • ********** 



.♦ENTIRE *. 
NO .♦INPUT FIELD*. 
...♦. TESTBD .♦ 



♦ D2 
»ilEN THE INPUT FIELD 
dAS 8ES» TESTED, AND 
NO DELIMITER HAS BEEN 
FOUND. kS ERROR EXISTS. 
■IriBN ALL THE BfTES OF 
THE INPUT FIELD HA? E 
NOT BEEN TESTED. THE 
SUBROUTINE LOOPS 
THROUGH THE TEST 
SEQUENCE, SEEKING A 
FIELD DELIMITER. 



2SET X 

*****£ 3*** ******* 
♦LOAD A REGISTERS 
♦ilTH THE START-^ 

♦ ING ADDR OF ♦ 

♦ DELIMITER ♦ 

♦ TABLE *H2 ♦ 
***************** 



*****D3********** 

* LOAD ANOTHER ♦ 

* HBG WITH THE * 

* NUMBER OF * 

* DELIMITERS ♦ 

* * 
***************** 



*****C4* ******* 
* 

♦ INITIALIZE 

♦ ERROR MSG 

♦ HITH 11 



****D4********* 

♦ RETURN TO LMK ♦ 

♦ REGISTER ADDR *X . 

♦ • 
*************** 



****A5********* 

* * 

* OPDATB ♦ 

* * 
*************** 



« POIIT TO NEXT ♦ 

♦ CHABACTER !■ ♦ 

♦ 1MPDT STREAM ♦ 

♦ ♦ 
***************** 



•*** *c5********** 
♦LOAD A REGISTERS 

♦ ilTH HIGHEST ♦ 

♦ LEGITIMATE ♦ 

♦ IN POT ADDBESS ♦ 

♦ * 
***************** 



.♦ OP PLD OF ♦. *ES 
♦.THIS CARD EQ .* 

♦ . ENTRT .* 



.* OP FLD OF ♦. 

.THIS CARD Ey . 
♦ . INCLUDE .♦ 



****P2****^**' 

♦ CTLRBT EOU 

♦ TO RDNEXT 

♦ CHART AH 
*************. 



*G2 
BLANK OPERAND IS 
ACCEPTABLE IN AN 
INCLUDE CARD. 



FINDEL 



*«**tf -)********* 
♦RETURN TO LINK ♦ 

♦ RBGISTBR ♦ 

♦ ADDRESS ♦ 
*************** 



** ***p 3***** ** ** * 

* * 

* POINT TO NBXT ♦ 

* DBLIMITBR IN ♦ 

* THE TABLE ♦ 

* * 
****** ********** * 



LAST 
DELIMITER 
. CHBCKBD . 



*****U3********** 
♦THE CHAR IN TBE^ 
♦INPUT AREA IS A^ 
♦NON-DELIMITER. ♦ 
♦MO¥B IT TO NORK^ 
♦ ABBA ♦ 

***************** 



*****J3********** 

♦ ADD 1 TO ♦ 

♦ BEGISTEB ♦ 

♦ THAT POINTS * 

♦ TO IOBK ABBA ♦ 

♦ * 
***************** 



**«**K3********* * 
♦UPDATE DE ♦ 

*-*-*-*-*-*-*-*- * 

♦ POUT TO ♦ 

♦ BBIT INPUT • 

♦ CHARACTER • 
***************** 



**•* 
ERR012 X 

*****f<(********** 

♦ * 

♦ INITIALIZE ♦ 

♦ BflROB MBSSAGB ♦ 

♦ NITH 12 ♦ 



♦ INITIALIZE ♦ 

♦ BRKOB MESSAGE ♦ 

♦ »2113I» ♦ 

♦ * 
***************** 



.♦ BAHELIST 
♦. TO BE 
♦. CLEARED 



******** 



******** 



***** 
♦DA ♦ 

* F2^ 



.♦LBG1TIHATB ♦. 

♦. SKIPPED .♦ 

♦. FIBLD .♦ 

♦. ^62 .♦ 



**B4******* 

RESET SB ITCH ♦ 

THAT INDICATED ♦ 

♦ THIS AS AN * 

♦IBCLUDE CABD ♦ 

♦ OPERA ID ♦ 

*********** 



***** 
♦DA ♦ 
♦ F2^ 

• * 



****G5********* 

♦ EBBOB ♦ 

♦ CHABT AJ ♦ 

♦ ♦ 
*************** 



•***B •>•****•*** 

• * 

• CMDEL ♦ 

• * 
*************** 



**** 1 




CMDEL .♦. 




J« ♦. 




.* 


♦. 


.♦ INPUT 




♦.DSLI5ITBD 


Bf 


♦. A COMMA 


. 



.X* 



*****J5********** 

♦UPDATE DE ♦ 
*-*-»-*-*- » - * - ♦ - ♦ 

POINT TO ♦ 
NBXT INPUT ♦ 
» FIELD ♦ 
***************** 



****K «*•******* 

♦ RBTUiN TO LNK » 

• BS6ISTEB ADD! • 



****E5** 

• RET TO LNK * 

• BBS FLOS * • 

• * 
*********•••*«* 
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Chart DF. IJBSCN - Skip Blanks and Extract Field Subroutines (Part 2 of 2) 
Refer to Chart 07 

REFERENCES ***** 
TO DFB2: * * 

DDB3, UDP2 *. ** 



.X. 



PHCOPTN X 

*****B^« ********* 
♦EXIRCT DB * 

*-*-*-*-*-♦-*-*-* 

* EXTRACT NEXT * 

* OPERAND • 

* FIELD * 
***************** 



NOAUTOCHK .*. 



*****G^** ******** 

•ERROR AJ ♦ 

*_*-*-*-* _*-*-*-* 

* ISSUE * 

* flbSSAGE * 

* B 21611* * 
***************** 



**D3******* 

* * 

* SET 

* NOAUTO BIT 

• IN -POPTSW- 

* SWITCH * 
*********** 



**fi3******* 

* * 

* SET S¥A * 
X*BIT II -POPTSW- 

* SWITCH * 

* * 
*********** 



**P3******* 

* * 

♦SET PBDY air * 

* IN -POPTSW- * 

* SWITCH * 



LAST *. NO 
DELIMITER .«... 

. BLANK .* 



**G«******* 

* * 
UPDATE 

POINTER TO 
NEXT FIELD 

• IN CAkD * 
*********** 



*************** 



**j3******* 



****K 3*** ****** 

* IJBCTL * 

* CHART EA * 
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Chart DG. IJBSCN - Phase Card Option Processor (Fart 1 ot 2). Sefer to chart 07 



* A -|* ******** 



********••*•**• 



INCLPR 

*****g -|**** ****** 

* POT MODULE * 

• NAHE INTO 1 * 
REG AND HOVE 
THE CD IHAGB 



♦A 2 

THE PRIVATE RELOC 
DIRECTOR! IS SEARCHED 
AMD THEM THE SISTER 
RBLOC. DIRECTORY. 



♦ TO INCSAVE 


* 


»*»* 


*** 


***** ********* 


* ♦ 








• C2 * 








* * 




. 




**** 




















X 






GET 


.*. 




INCGET1 X 




CI *. 




***** C 2******** 




.* ♦ . 






.* 


PRIVATE * 


. SO 


♦ INITIALIZE. 


*. 


RELOC LIB 


.*.... 


....1* KRROfi MESSAGE 


* 


.ASSIGNED .* 




* »2130l» 



* ******** ******* 







ALKBRR .*. 


X 






A« ♦ . 


*****A5********** 


*•**& 3**'* ****** 




.♦IS TBB ♦. 


• POUT * 


* ALKIPR • 




NO .*CARD BBING *. 


• TO TBB IBXT * 


* CHART AG *X 


...♦.PROCESSED AN .* 


• DIRECTOR! * 


* * 




*. INCLUDE .♦ 


* BNTRI * 


***********<••** 




*. .* 


* * 






*. .* 


••*•****•**•***•• 






* IBS 




**** 




**** 




* * 




•DH * 




* B3 ♦... 




* El *.X. 




* * . 




* * 




**** X 




**** 




.*. 




EttB 03 k X 


.*. 


83 *. 




*****B4********** 


B5 *. 


.* *. 




♦ • 


.* ALL *. 


.♦ HATCHING *. IBS 


* INITIALIZE * 


.♦ DIBBCTORI *. BO 


*. NAHB POUND .♦. 




* ERROR HBSSAGB * 


*. ENTRIES IN .*.... 


*. .* 




* «2132I« • 


*. BLOCK .* 


*. .* 




• * 


•TESTED.* 


*. .* 


X 


** *************** 


*. .* X 


* NO 


***** 




* IBS **** 




*DH * 




* • 




• Al* 




• El* 




* • 




* • 




• 




**•* 


ALKPND 


. 




X 




INCERR X 




***** C 3********** 




*****04********** 


*** * *C S***** **** * 


* * 




* POT ADDS OP * 


•AD1DSK AB* 


* INITIALIZE * 




* SAVE ABBA * 


*_*_*-*-*-*_*_*_* 


* ERROR HESSAGE * 




* IHCSAV INTO * 


* UPDATE TO • 


* »2131I» * 




♦ PARAMETER * 


* NEXT BLOCK * 


* * 




• PASSING REG * 


* * 


***************** 




***************** 


***************** 



*****[> 1********** 

* INITIALIZE * 

* 8 EG WITH DIB * 

* START ADDR * 

* CCB WITH LOG * 
*0NiT OF SY5RLB * 
***************** 



IES .* SirSTEfl *. 
...♦.RELOC LIBRARX.* 
*. ON FBA .* 



***** * NO 


***** * NO 


*DJ * 


*DJ * 


♦ AT* 


* A2* 


* * 


* * 


'* 


* 


FBRDIHLB 


FBRD1REL 


INCGET2 I 




*****p 1********** 


*****!? 2* ********* 


* * 


* GET * 


* IN IT CC»! * 


* START ADDRESS * 


♦FOR FIRST HEAD *X. 


* OF RBLOC * 


* OF DIRECTORY * 


* DIRECTOR* * 


* * 


* * 


***************** 


***************** 



•****G i* ********* 
♦INITIALIZE RBSS* 

* FOR SCAN OF * 
♦FIRST DIRECTOR** 

* BLOCK * 

* * 
***************** 



INCBEE 

*****H i********** 

* SET OP SEARCH * 

* INFO AND CCB * 

* FOR READ OF * 
♦RELOC DIR ECTOR I* 

* * 
***************** 



♦ IES ♦♦♦♦ 
**** * * 

♦ * ♦ Ab ♦ 

♦ ♦ * .X . ♦ ♦ 

♦ * •*** 
♦*** X REFERENCES 

SYSLIB .*. TO DGB3: 
E3 *. DJF3, DJF5 
.♦ IS ♦. 
NO .♦ THIS ♦. 

*. PRIVATE .♦ 

*. BBLOC .* 
♦. LIB .♦ 



*****? 3* ********* 

♦ INITIALIZE ♦ 

♦ CCB rflTH ♦ 

♦ LOGICAL UNIT ♦ 

♦ OF SISRBS ♦ 

♦ *K1 ♦ 
***************** 



**** 

* * 

* C2 * 

* • 
**** 

*G3 

THIS CREATES A LAST IN- 
FIRST OUT TYPE OF LIST 
DESIGNED TO KEEP TRACK 
OF INCLUDE LEVELS. THIS 
IS ALSO CALLED A PUSH- 
DOMB LIST. REFER TO 
PERIDA IN LABEL LIST. 



•****gi»********** 

* SKIP TO END * 

* OP MODULE • 

* BY ADJUSTING * 

* ONSOOO * 

* * 
***************** 



INCHED X 

*****D5********** 

* PUT * 

* START ADDBBSS * 

* OF BLOCK * 

* IN A REGISTER * 

* * 
***************** 



**** 

* * 

* Hi * 

* * 
*♦** 



.* THIS * 
.* ERROR ON 
♦. RABBD SUB- 
*. HODOLAR 



»***GI»*** ******* 

CLEAR THE • 

NAHELIST • 

NHELST AND * 

RESET SBHDST * 

* 

**************** 



**************> 



♦ Kl *.X 



• *** 
INCLOP X 

*****g 1********** 
♦SCAN DIRECTORY * 
♦FOR HODULE RAHE* 

♦ THAT HATCdBS ♦ 

♦ CARD IMAGE ♦ 

♦ NAHE ♦ 
***************** 



.* hELOC *. NO 

*. DIR SYSRLB .♦. ., 
*. INPUT .* 



*****J2********** 

* * 
♦SET SNITCH FOR * 

* PRIVATE RELO * 

* INPUT TO X»00» * 

* * 
***************** 



***U i)***** ******* 
ERROR AJ 

*_*-*_*-*_*_*_*_* 
SEND ERROR 
♦ HESSAGE •21301* 
•21311* 
***************** 



****jil********* 

♦ RDNEXT ♦ 

♦ CHART At* ♦ 

♦ • 
*************** 



**** 

* * 

♦ B3 ♦ 

**** 
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Chart DH. IJBSCN - Phase Card Option Erocessor (Part 2 ot 2). Refer to Chart 07 



**** HEPEKENCES 

* TO DHA1: 

*♦ 1>GB3» DJE3 



* WAIT TILL 

LAST I/O IS 
* PIN1SHKD 

**************** 



****C 1********** 

MOVE AUTOLINK * 

AMD NODULE * 

RASE TO HAP * 

PRINT AREA * 

* 

**************** 



*****D |********** 
♦PRTLST+6 AD* 

*-*-*-*-*-*-*-*-* 

* IDENTIFY AS * 

* LIST ITEM AND * 

* PRINT IF HAP * 
***************** 



***•*& 3********** 

* SET UP DISK * 

* ADDR AIID TIPE * 

* OP MCLODE * 
♦FLDS IB PERIDA * 

* AND OMS000 * 
***************** 



B3 *. 

» IS 
RLE ON 
AN RPS 
DEVICE 



*****C3********* 

* ♦SVC 75 * 

* ♦CALCULATB * 

* *S ECTOR * 

* *¥ALUE POB * 

* * HODULB * 
**************** 



**D3******* 

•set switch * 

* rblbsw in 
read input 

* RTN TO 

* BRANCH * 
*********** 



* THIS *. 
PRIVATE ♦. IBS 
RELOC .*.... 
LIB .* 



** ***£*»*** ******* 

* SET SNITCH * 

* PVLBSH FOR * 
X* PRI? LIB * 

* INPUT * 

* * 
***************** 



* NO 


***** 
*0G * 
* B4* 

* * 


'. X 

*****pl* ******* 

* DISPLACE 

* LIST ENTRIES 

* BY A FACTOR 

* OF 6 


ERR032 

** 

* 
* 
* 
* 



***************** 



HO .* FINISHED *. 
..♦.PUSHING DOWN .* 
♦.THE LIST .♦ 



****p 3*** ****** 

♦ CTLRET EOU * 

♦ TO RDNEXT * 

♦ CHART AH ♦ 
*************** 



*****U |********** 

♦ REDUCE PERIDB ♦ 

♦ LIST BI ONE - ♦ 

♦ PUSH DOWN ♦ 

♦ NESTED SECTOR ♦ 

♦ BUCKET ♦ 
***************** 



.♦ FINISHED *. NO 
♦.PUSHING DOWN .♦... 
♦ .THE LIST .♦ 





. 
















X 








.♦. 








R1 ♦. 








.♦ * 






.* 




* 


. TBS 


*. 


PBA 




.♦ 


• 


"♦. .♦ 

*. .* 
* MO 

X 

*•** 


.* 





♦ A3 • 

* • 
•*** 



*****K 2** ****** ** 

♦ SET UP DISK * 

♦ ADDR AND TIPE * 
:♦ OF INCLUDE * 

♦FLDS IN PER ID A * 

♦ AND ONSOOO * 
***************** 



.FRHOOIO 

X 
***** 
♦KA ♦ 
- B4»* 



* * 
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Chart DJ. IJBSCN - Scanning Directory if Relocatable Library on FBA. Refer to Chart 07 



♦ ♦♦♦AT* ****** 

* 

* FBBDIBLB 
* 
************* 



****A2********* 

* * 

* FBRDIBEL * 

* * 
*************** 



**** 

* * 

* BJ * 



♦INIT CONSTANTS * 

* FOR PBIVATE * 

* RELU LIBRARtf * 

* * 
***************** 



♦INIT CONSTANTS * 

* FOR S If STEM * 

* RELO LILfHARf * 

* * 
***************** 



♦IHIT CONSTANTS 
♦AMD S HITCH FOR 
♦ I/O-ABEA 1 

**************** 



****D1*** ******* 

IN IT CCW * 

TO READ PIRST * 

RECORD OF * 

DISSCTOKI * 



***E I********** 
READ THE FIRST 
* TWO LOGICAL 
RECORDS OF 
D1HECTOH* * 



WAIT TILL 
LAST I/O 
PI«iSHED * 

************ 



*****£ ^********« 

* UPDATE 

* BLOCK NUMBER 

* FOh NSXT READ 



♦ INIT REGISTER 
♦WITH CONSTANTS 

* FOR SCANNING 



WHOLE ♦. XES 

DIRECTORY .♦ 

. READ .♦ 



***D 3* *********** 
START READING 
♦ OF NEXT ♦ 

DIE ECTOR If 
♦ RECORDS ♦ 

***************** 



*****Qi|*** ******* 

* * 

* SET SWITCH * 

* FOR * 

* SECOND TIHE * 

* * 
***************** 



.♦1/O-AR 
♦ . USED ; 



EA 1 *- ICES 



*****j i********** 

♦SET SWITCH AND * 

* CONSTftNTS POR * 

* READING INTO ♦ 

* I/O -AREA 1 ♦ 

***************** 



*****K 1********** 

* * 

* INIT REGISTER * 

* POR SCANNING * 

* I/Q-AREA 2 * 

***************** 



♦ SET SWITCH AND 

♦ CONSTANTS FOR 

* READING INTO 

* I/O-AREA 2 



************* 



*****K^********** 

* * 

* INIT REGISTER * 

* FOR SCANNING ♦ 

* I/O-AREA 1 * 

* * 
***************** 







. . .X 


Y 










X 






Ifinclop .*. 










£J ♦. 


















.* 


* 


IES 




.flOLULE POUND 


* 






* 


.* 
♦ . .* 
*. * 

* NO 

X 

.♦ . 

fj *. 




1 
***** 
*Dd * 
* A1* 

* 
ALKFNJ 






ESD *♦ 


¥ES 




OP DIRECTOR i 


♦ 






* 


* ♦'no 

X 




i 

***** 

*DG * 

♦ EJ* 

* * 

* 

SrSLIB 


* ****: 




* 




UPDATE 


* 






HSGISTERS FOR 






♦NEXT DIRECTORS 










ENTHf 


* 














**** 


( ****4 


******** 










> 












.* . 










riJ ♦. 
















I HO 


*" 


END *. 






. . ..♦ 


* 


OF FISST 
RECORD .* 

*- .♦ 
*. -♦ 


* 








1 


* IBS 










i 


L 






" ****: 


* 




* 




UPDATE 


* 








REGISTERS 






* 




FOR NEXT 


* 








RECORD 


* 




* 






* 




********* 


********* 








i 












.♦. 










K3 ♦. 










* ♦ . 






I SO 


.* 


END ♦. 






. . . -* 




OF SECOND . 


* 






* 


RECC 


)BD .♦ 







*****£<}********** 

* • 

* RESKT SB ITCH • 
A* FOB * 

* NEXT TIME • 

* * 
***************** 



*****D5******** 

* UPDATE HSG 

* FOB PBIfATB 

* OB SISTEB 

* LIBBABI 
* 
*************** 



PBIMT 
* Eh BOB HSG * 
•21371* 
***************** 



*****F5********* 



***** 
*DG * 

* EJ* 

* • 



**** 

* * 

* F1 * 
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Chart £A. IJECTL - Phase/Entry Processor (Part 1 of 6). Refer to Chart Ob 



• ***i 1********* 

* * 

* IJBCTL * 

* * 
*************** 



C1 *. 
.* *. 

HO .* PHASE *. 
.-.•.CARD ALREADY .* 
♦ .PROCESSED.* 
*. .* 

X ♦. .* 

**** * IES 



* H5 * 

* • 
**** 



* HOYB CURRENT * 

* CD ENTRY TO * 

* CONTROL * 

* DICTIONARY * 
***************** 



***** 

• EC * 

* G3* 

* * 



.* f ♦. NO 

♦. TYPE PHASE .*... 

♦. NAHB .* 



**6 I******* 



* SET SWITCH 



IOT1ST X 

*****B4********** 

•SRCHCD AC* 

*_*-*-*-*-*-*-*-* 

• SEARCH CTRL * 

* DICT FOR * 
♦DUPLICATE NAHB * 
***************** 



.♦ HATCHING 
■ AHE 
♦. FOUND 



an 



♦ED * 
* if* 

* * 



DUPLICATE ♦. IES 
POOID OM ...... 

. PHASE .♦ 
♦.BBTBI.^ 

♦ . .♦ 
♦ 10 



*****D5*********< 
* 

♦ INITIALISE 
.X* ERROR RS6 

• 1ITH 20 
*******•**•*•***> 



♦ COITIIDE ♦ 

♦ SEARCH OP ♦ 

♦ CTRL DICT * 
** *************** 



SBBD ERROR 
• HESSA6E ♦ 

•21201* 
***************** 



****P5********* 

• R DIBIT ♦ 

♦ CHART AH ♦ 

* • 
************••• 



.♦ OPERAND ♦ 
♦.ROOT IN CARD 
♦. ♦ H3 .♦ 



***** 
*BB ♦ 
* I1« 

* # 



*****H 1* ********* 

* * 
♦CLEAR REGISTER ♦ 

♦ TO COHPOTE ♦ 

♦ ORIGIN ♦ 

* * 
***************** 



**jf******* 



*****H2********** 

♦ HOfE HEX ♦ 

♦ INTO ROOT NO. ♦ 
♦ZERO CTRL DJCT.+ 

♦ NOHBEB AND ♦ 

♦ EDS ADDRESS ♦ 
• ***************** 



♦ H3 
THE CONTROL DICTIORARX RUBBER 
OP A ROOT PH1SB IS ALBAIS A ONE. 
THB CONTROL DICTIONART RUBBER 
OP THB FIRST PHASE. IF IT IS A 
NONROOT PHASE, IS BBRO. 
SBB ROOTNO IN THB LABEL LIST 
FOR FOBTHBR' EXPLANATION ON 



ADJOSTHBNTS RBOOIRBD BI THB 
CONTBOL DICTIOIABI NOHBBR IF 
ROOT PBASB IS SPECIFIED. 



SET OP 

-FB"- 



***J5**. 

ctfgl, 



JiHsLSJtfiJ 



72 COS/VS Linkage Editor 



Chart EB. IJBCTL - Phase/Entry Processor (Part 2 ot 6). Refer to Chart 08 



BBPEBEBCBS 
t ~ TO BBAl: 
♦ J* BAC%, *Ag2 



**A2******* 

* * 

* TOBM OPP * 
.X* HAPSM EOT * 

• RELOCATABLE * 

* « 
*********** 



***** 
*BC * 
* A3* 



CI *. 
.* 
.* QOALIPIB 



*****£ J********** 



♦LOAD A BEGISTBB* 

* WITH BHD OP * 

* SOPEBTISOR * 

* ADDRESS • 
***************** 



.* 0BI61V *. 
. AT BUD OP . 
♦SUPkHTISOB.* 



*****£2********** 

• * 

* LOAD BEGISTBB * 

* BITH BEX? * 
•POSSIBLE OBIGIM* 

♦ * 
***************** 



.* PLOATIBG *. 

POINT 

*. PBATOBB .* 



*****G 1* ********* 

• ADD LBMGTH * 

• OP PLOATIBG * 
♦POUT SATE ABBA* 

• TO REGISTER * 

• • 
***************** 



THBBB A 
*.QUALIPIBB. 



**** 

* * 

* B% * 

* • 



EBB 02 #A A Z 

*****BI»*** ******* 

* PBBPABB * 

* TO ISSOB • 

• BBBOB BBSSAGB * 

• *212%I» * 



*•** 

* C3 * 

**** 



**** 

* * 

* D3 *.I 



***** 
•BC * 
* A3* 



**** 

BRB022 

*****D3********** 

* * 

* PBBPABB TO * 

* ISSOB BBBOB * 

* BBSSAGB * 

* *2122I* * 
*********•*•**•*• 



***E3************ 

BBBOB AJ 

*_*_*-*_*-*-*-*-* 

SBBD BBBOB 
* BESSAGB * 

•21221* 
***************** 



****P3********* 

* B DIBIT * 

* CBABT AH * 

* * 
*************** 



.* PHASE 
OBIGIH 
•.BBGATIVE 



***D4*«* ********* 

BBBOB AJ 

*-*-*-*-*-*-*-*-* 

SBBD BBBOB 
* BBSSAGB * 

•21241* 
***************** 



****B4* ******** 

• BDBBZT • 

• CBABT AB * 

• • 
*************** 



• TUfiB OPP * 

HAPS1 

• PBASB BOT * 
•BBLOCATABLB* 



•EC * 
* D3* 



* ADD LEBGTB OP * 

* BEGISTBB ABD • 

* LABEL SATB * 

* ABBAS * 
*****••******•**• 



*****j )****** ***: 

ADD 

DISPLACSBEBT 

TO BASB 

******** *•**•**** 



•****B2********** 
♦LTCDAD AG * 

*_*-*-*_*-*-*-*-* 

* COHPOTE PBBf * 

* PHASES COBTfi * 

* DICT.ADDBESS * 
***************** 



.* PBEflOOS *. 

PHASE 
♦BBLOCATABLB* 



**K2******* 



PHASE EOT 



***** 
•EC * 
* G2* 



* COBTIBQB SCAB 

* OP COBTBOL 

* DICTIOIABI 



*****y5*********« 
•SBCHCD AC • 

*-*-*-*-*-*-*-*-• 
♦SEABCfl COBTBOL * 
•DICTIOHABI POB * 
• SIHSOL • 



BO .* DUPLICATE *. 
...*. SIBBOL .* 

*. POOBD .* 



X 
.*. 

H5 *. 



LD/LB 



********** 



*****j5**' 

• SATE COBTBOL 

: isisrsi 

* ADDBESS 

*J*** ****** *****H 



—*♦ *g5 — *»**• •< 

* LOAB IK. " 

*HITH A. 
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Chart EC. IJBCTL - Phase/Entry Processor (Part 3 of 6). Refer to Chart 08 



**A 1******* 
* TUSH ON ♦ 

♦ MAPS* * 
ASSUftE PHASE 

* 1Q 6£ * 
♦RELOCATABLE^ 



Bl ♦ . 
-* ♦ . 

.* CONTROL *. HO 
. DICTIONARI .*... 
♦.ENTRI FOR.* 
♦.PHASE.* 
*. .* 
* IES 



•****C1**** ****** 
♦LTCDRP AB * 

♦OBTAIM RELOCA- * 
•TION FACTOR OR * 
* BSID # * 

***************** 



* COHTROL *. HO 
DICTIOHARI .♦... 
*. ENTRI A .* 
*.LD/LH.* 



*****% i********** 
•LTCOHO AB * 

*-*-*-*-*-•-*-*-* 
♦OBTAIN RELOCA- * 
♦TIOK FACTOR OP * 
* SD POINTED TO * 
***************** 



**A2******* 
♦SET SWITCH,* 

* NOSCACAN, * 
SI fiB L1C 

* ORIGIN = * 
♦PHASE SAME * 

*********** 



**C2******* 



*********** 



**** 

* * 

* A3 * 

* * 

• *** 



♦ ADD DISPLACE- 

♦ MENT TO 

♦ PHASE ORIGIN 
* 
*************** 



.♦ PHASE 
ORIGIN 
♦. NEGATIVE 



***** REFERENCES 

♦ ♦TO ECA3: 

♦ ♦♦ BBA2 r BBB3 



.!♦ 



*****BH*** ******* 
♦ERROR AJ ♦ 

-i-*-*-*-*-*-*-*-* 
ISSUE ERROR ♦ 

* MESSAGE ♦ 

♦ »212UI» ♦ 
***************** 



PBDX *. NO 

OPTION IN .*... 
. PHASE .* 
*.CARD .* 



** ***f i********** 

* * 
•ADD RELOCATION * 

* PACTOR TO ♦ 

♦ ASSBBBLED ♦ 

♦ ORIGIN ♦ 
***************** 



_*_♦_#_♦_*_; 



************** 



**ai* ****** 

♦SET SNITCH ♦ 

♦ NO SC AG AN, 
♦ SIHBOLIC 

♦ ORIGIN IS NO 
♦ PHASE NAME ♦ 

*********** 



*****j \f********* 
♦LTCDAD AB ♦ 

*-*-*-*-*-•-*-*-* 
•OBTAIN COBRBSP.^ 
♦PHASE BNTBf FB ♦ 
♦ CONTROL DICT. ♦ 
***************** 



CHQUALIP 

O* 

.♦ ♦. 

.♦ ' 

♦. QUALIFIER 

♦. .* 

♦. .* 

*. .* 

* IES 



IES .* SIHBOLIC *. 
...♦ORIGIN = PHASE. ♦ 
♦. NAME .♦ 



**** 

♦EB ♦ 

♦ C5 ♦ .X. 



*****D3********** 

♦ * 

♦ ALIGN PHASE ♦ 

♦ ORIGIN TO ♦ 

♦ PAGE ♦ 

♦ BOONDARI ♦ 
***************** 



* OBTAIM LOAD • 

♦ OB I GIN OP ♦ 

♦ PROCESSED ♦ 

• PHASE * 
***************** 



NO .* TRANSPBR 
...♦. ADDRESS 

•.ACCEPTED . 
♦. .♦ 



♦ ALIGN PHASE ♦ 

♦ ORIGIN TO ♦ 

♦ DOOBLBBORD • 

♦ BOONDARI ♦ 
***************** 



**** 
ISROOT I 

*****£ j********** 

♦ * 

♦ BUILD CURRENT ♦ 

♦ CD ENTRI ♦ 

♦ FOR HEN ♦ 

♦ PHASE • 
***************** 



*****p $********** 



RESET 
SNITCH 
TkPRSN 

* * 

*********** 



•****X5********** 

* OBTAIN ASSEM- • 

• BLED ADDRESS * 

♦ AMD ES1D • OF • 



.* MATCHING *. IES 






♦ SATE LOHBST ♦ 


*. QUALIFIER .*. 


.1 






♦ PHASE ORIGIN ♦ 


♦. .♦ 








♦ AS BASE FOR ♦ 


♦. .♦ 








♦ COMMON * 


♦. .♦ 


i 




***************** 


* NO 


**** 






* 


* 


**** 


..........I. 


* A3 

* 


* 
* 


♦BA ♦ 




♦ El ♦.!. 




**** 


♦ ♦ . 








**** r 


SCAGAN I 




PINPRO .♦. 


*****G 2** ******** 






G3 ♦. 


* RESTORE CTRL * 






.♦ ♦. 


* DICT NUMBER * 






.♦ FIRST ♦. I 


♦ AND ADDuESS ♦ 






♦. PHASE .• 


♦ TO RESUME ♦ 






•- .* 


♦ SCAN ♦ 






*. .* 


***************** 






*• .* 


• 






* IES 


X 






• 


***** 








♦EB ♦ 






X 


♦ G1* 








.*. 



10 .« SIHBOLIC 
...*. TRANSPBR 

*. ADDRESS 



X 

***** 
♦ED • 
• D1* 

* * 

* 

PBXADD 



**** 

* * 

* B5 • 

* * 
**** 



• SEARCH CTRL * 

* DICT FOR • 
•BATCH IMG LABEL • 
***************** 

**** I 

* • . 

• H5 • .!. 



.♦ PHASE • 
*. CABD 

*. .♦ 
*. .* 
*. -• 
• NO 


. IBS 
. *.... 

X 

***** 


**** 
•ED • 

• E2 *.X. 

* * . 


*BF • 
• B3» 
* * 

* 


♦**♦ . NEMPHS 
1081 X 
*****j 3* ********* 
* * 


♦ PBEPARE FOR • 

♦ ERROR • 

♦ MESSAGE ♦ 

♦ *2181X* • 

*« **** ******** ** * 



TBS .* SATCBIHG 
...... LABEL 

*. POUND .' 
*. .* 



J4 *. 


**J5*****«* 


.* *. 


•SB SNITCH • 


• BATCHING *. IBS 


• H>P»TSM- 


LABEL AMSDOB .♦..„. 


• TO INDICATE 


•.ASSIGNED .* 


• INVALID * 


•. »• 


TBABSPEB LABEL 


*. .* X 


*********** 


• NO ***** 




•BD • 




• Ml* 





****K 3********* 

• ABTBRR • 

• CHART AF • 

• * 
*************** 



• OONTIBOB COM- • 
•9 SOL DICTIONARY* 
« SEARCH • 

** *************** 



**** 

* • 

• B5 • 
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Chart ED. IJBCTL - Phase/Entry Processor (Part <4 of 6). tfefer to Chart 08 



•****B1********** 
♦LOAD A REGISTER* 

* WITH ASSEMBLED* 

• ADDRESS FROM * 

• CTRL DICT * 

* BNTRI * 
***************** 



*****C 1*** ******* 

♦LTCDRF KB * 

*-*-*-*-*-•-*-*-* 
♦OBTAIM RELOCA- * 
♦TIOR FACTOR OR * 

* ESID RUBBER ♦ 
***************** 

**** * 

♦EC ♦ 

♦ F5 ♦.!. 



•****£ 1* ********* 
♦LTCDHO AB * 

*-*-*- 

♦ OBTAIN RELOC * 

♦ FACTOR OF SD ♦ 

♦ POIRTBD TO ♦ 
***************** 



♦ ADD RELOC. * 

♦ FACTOR TO * 

♦ ASSEMBLED ♦ 

♦ ADDRESS * 
***************** 

**** * 

♦EC ♦ 

♦ C5 *.X. 



♦STORE fRARSFBR ♦ 

♦ ADDRESS III ♦ 

♦ LOCATION * 

♦ TfiPRAD * 
***************** 



*****H 1********** 

♦ * 

♦ CALCULATE ♦ 

♦ LENGTH OF ♦ 

♦ CURRENT PHASE ♦ 

♦ * 
****** *********** 



.♦. 

D2 *. 

* • 

LiNGIh 

> 



♦. .* 

♦. .* 

♦ HO 



***P2** ********** 
ERROrt AJ 

*-*-*-*-*-*-*-*-* 
SEND ERROR 
♦ ABSSAGE ♦ 

•21231 • 
***************** 



****y 2* ******** 

* RDNEXT ♦ 

* CHART AH ♦ 

* * 
*************** 
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Chart EE. IJBCTL - Phase/Entry Processor (Part 5 of 6) Refer to Chart OB 



* an * 

* ♦ 
**** 



cmoBL X 

*****b i***« ****** 

♦CALCULATE I OP * 
♦TEXT BLOCKS AND^ 

♦ * OP TEXT ♦ 

♦ BITES IN UkST ♦ 

♦ BLOCK ♦ 
***************** 



*****t; 1* ********* 

♦ * 

♦ INITIALIZE ♦ 

♦ NUMBER OF ♦ 

♦ ADDITIONAL ♦ 

♦ RLD BLOCKS ♦ 
***************** 



* * 

* BH * 



*****P1********** 

« * 

♦ ShT NUMB&R * 

♦ OP ADDITIONAL *X. 

♦ RLD BLOCKS * 

♦ ro UBBO ♦ 
***************** 



*****g^** ******** 

* ROUND f OP ♦ 

♦ 8XTES IN LAST ♦ 

♦ BLOCK TO ♦ 

• INTEGRAL # ♦ 

* OP PULLHORDS ♦ 
***************** 



GET CIL ♦ 

BLOCK ♦ 

SIZE ♦ 

♦ 

**************** 



****D 2** ****** * 

CALCULATE 

SPACE IN 

LAST TEXT 

BLOCK POR RLD 

ITEMS 

******** ****** 4 



*****£;>* ********* 

♦ * 

♦ CALCULATE ♦ 

♦ SPACE ♦ 

♦ NEEDED PUR ♦ 

♦ TEXT BLOCKS ♦ 
***************** 



i.S .♦ ENOUGH 
..*. SPACE In 

*. LAST 
♦ . tlLOCK . 



MOrtfcBLK 

*****G^* ********* 

* CALCULATE NO ♦ 
♦OP BJi'ES OP HLU^ 

• INPO THAT DONI ♦ 

♦ PIP IN LASr ♦ 

♦ FLOCK ♦ 
***************** 



*****,! ^* ********* 

* * 

♦ DIVIDE NO OF * 

♦ BYTES Bt * 

* BLOCK SIZE ♦ 

• * 
***************** 



♦ **» 

* * 

* BH * 

* * 

♦ *** 



*****B j* ********* 

♦ADIDSK AE • 

*_*_*_*_*_*_*_*_* 

♦ UPDATE ♦ 

♦ DISK * 

♦ ADDRESS ♦ 
**************** * 



.♦ ALL 

BLOCKS 
♦ . CHECKED 



*****]) 3********** 

♦ . * 

♦ PUT ADDRESS ♦ 

♦ OP NEXT ♦ 
♦AVAILABLE BLOCKS 

♦ III OBPHDA ♦ 
***************** 



*****C<1* ********* 

♦ • 

♦ ADD 1 TO ♦ * 

♦ OP ADDITIONAL • 

♦ BLOCKS * 

♦ • 
***************** 



.♦ CIL 

AN RPS 
♦. DEVICE 



*****p j*** ******* 

♦ ♦SVC 75 ♦ * 

♦ ♦CALCULATE ♦ ♦ 

♦ ♦SECTOR ♦ ♦ 

♦ ♦VALUE OP ♦ ♦ 

♦ ♦CIL BLOCK ♦ ♦ 
***************** 



♦EP ♦ 
♦ B1* 

* * 



**** 
STRLD X 

*****D<t*** ******* 

♦ * 

♦ STORE RLD * 

♦ INFORMATION * 

♦ IN PHASE OP * 
♦CTRL DICT BHTRX* 
***************** 



**** 
HONMANX 

*****£<!**• ****** 
* 

♦ CALCULATE 

♦ TOTAL # OP 

♦ TXT AND 

♦ RLD BLOCKS 
**************** 



*****P4********* 

* 

♦ SET UP CIL 

♦ OVERFLOW 

♦ FACTORS 
* 
**************** 



♦****(Jl4*** ******* 

♦ • 

♦ OBTAIN DISK ♦ 

♦ ADDRESS OF ♦ 

♦ 1 ST BLOCK OF ♦ 

♦ THIS PHASE ♦ 
***************** 



ClflBLK 

*****H(|*** ******* 

♦ SAVE DISK ♦ 

♦ ADDRESS OP • 

♦ LAST BLOCK ♦ 

♦ WRITTEN IN ♦ 

♦ -CILHI-^HS ♦ 
** *************** 



• H5 

USED BX IJBRLD 

AS HIGHEST 

ADDRESS TO BE 

VERIFIED 



J<» ♦. 




► ♦. 




LIBRA RX *. 


■0 


TOO 


*.... 


SHALL .♦ 




*m .♦ 




♦. -♦ 


*!** 


* TBS 




• • 




* B3 * 


***** 


• • 


**** 


♦AK * 




♦ E5» 




* * 




* 




EBR093 
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Chart EF. IJBCTL - Phase/Entry Processor (Part 6 of 6). aefer to Chart 08 



***** 

♦BE * 
* pj* 

* * 



**»* *cl**« ******* 

* * 

* PREPARE TO * 

* ISSUE ERNOR * 

* MfcSSAGF * 

* »2182I» • 
***************** 



I.NTRT 
CARD IN 

oajfcCT . 
♦ .Dicr .* 



**Ci******* 

* * 

* TURN OFP * 
* HAPSN, NOT * 

* RELOCATABLE * 



**K1********* 
AflTEKR 
UJART AP 
************* 



****D 2* *******' 

SAVS POSSIBLE 

OVEhRIDiNG 

TttASSPKR 

ADDHtfSS IS 

X M7' 



* CrlAKT PA 

************** 



ha ps if 

ALLOCS 
REL 



*****? j** ******** 

* CHANGE CTRL * 

* DICr TfPii CODE * 
♦TO 'RELOCATABLE* 

* PHASE* * 
***************** 



**GJ******* 

* TORN ON * 

MAPS* 

THIRD PASS 

ON HLD 

* NECESSARX * 
*********** 



**pit******* 

* * 
SET ERRSH 

PUR RETURN 
FROH EBBOH 

* ROUTINE * 
*********** 



ISSUE ERROR * 

BKSSAGB * 

•^1601* * 

*************** 



*****B5********** 

• * 
•CALCULATE CTHL * 

• OICT. • AND • 

• ADDA. FOB HEN • 

• PHASE ENTNX * 
***************** 



*****cs********** 

* ♦ 
♦STORE MEN CTRL • 

• Did. • II ♦ 

• CURRENT • 

* PHASE • • 
***************** 



*****D5********** 

* * 

* HOIE PHASE ♦ 

* TIPE TO CTHL * 

* DICT BSD * 

* T3TPB * 
***************** 



*** *£5********* 

• BDMEXT * 

* CHART AH * 



******** 

* * 

* RESET RLD * 

* ITEMS COUNTER * 

* TO ZERO * 

* * 
***************** 



**j3******* 



RESET 

AUTOLIBK 

SNITCH 
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Chart FA. IJBMAP - Print Map (Part 1 cf 5), Eeter to Chart 09 



**** 

♦ A3 ♦ 



•*** 

• * 

• A5 * 

• • 
**** 



_*_*_*_*_* 



♦CONVBhT LAbEL, 
♦LENGTH AND LOAD* 
♦ADDRESS TO HEX * 
***************** 



*****£ j********** 

♦ SET OP TO * 

♦ READ 28 BITE * 

♦ PBASE HDRS ♦ 

♦ PROM SYSTEM * 

♦ WORK AREA ♦ 
***************** 



♦a a 

THE LENGTH OP THE 
COS BON CONTROL 
DiCTiONABI BMTHI IS 
TUB LONGEST LENGTH 
FOR COB HOBS OP THE 
SAME BABE. 



*****A5********** 
•SAVE ASSEHBLED • 

* ORIGIN OP THE * 

* LBG1T1BATE * 

* CTRL DICT • 

* EBT1I * 
***************** 



****p i«******** 

* * 

* IJBBAP * 

* * 
*************** 



IJBMAP X 

*****£ 1********** 
♦LOAD REGS ilTH ♦ 

* START AD«t ♦ 

♦ CTRL DICT AND ♦ 

* ROOT NO.. GET ♦ 

♦ CURRENT DATE ♦ 
***************** 



*****£) 1********** 

♦ * 

♦ MoVi. HEADER ♦ 

♦ POR 5AP TO ♦ 

♦ ROUTINE PRINT ♦ 

♦ * 
***************** 



SPACE ONE 



***************** 



***************** 



♦ READ PHASE ♦ 

♦ INFORMATION ♦ 

♦ INTO PHEADER ♦ 
***************** 



*****Uj********** 

♦ CONVERT DISK ♦ 

♦ ADDRESS OP ♦ 

♦ FIRST TEXT ♦ 
♦BLOCK TO CCriHR ♦ 

♦ PORBAT ♦ 
***************** 



.* FIRST ♦. 

.♦ TIflK *. 

♦. THROUGH BAP . 

♦.PROCESSOR.* 



** ***c«********** 
♦LTCDMO AB • 

*- *-*-*-*-*-*-*-* 

♦ GET RELOC 

♦ PACTER OP THE ♦ 

♦ SD POINTED * 
***************** 



•X. 



*****B5********** 
♦LTCDMF AB • 

*-*-*-*-*-*-*-*-* 

♦ GET TUB BSID * 
♦RUBBER OP RBLOC« 

* P ACTOR ♦ 
***************** 



IBS .* CTRL *. 

......DICT BBTRX AB.* 

♦. LD/LR .* 



***** 
♦PB ♦ 
♦ A I* 



*****D5********** 

* CALC LOAD * 

* ORIGIN AID * 
♦SAVE THE RESULT* 

♦ IB LOCATION ♦ 

♦ TRPRADD * 
***************** 



**B1* ****** 
* * 

♦ ENSURE * 
♦ PRINTING OF ♦ 

♦ HEADER AT ♦ 
♦NEXT PRINT * 

*********** 


*****£ 2* ********* 

♦ SET LENGTH OF ♦ 

♦ con HON CIRL ♦ 

♦ DICi' BNTKY ♦ 

♦ EwUAL TO ZERO ♦ 

♦ * 
***************** 


E3 ♦. 

.♦ ♦. 

.♦OVERRIDING ♦. 1 

♦. TRANSFER .♦ 

♦. ADDRESS .♦ 

♦. *Qb .♦ 

♦. .♦ 


**** '. 


. ftAPLDH 
♦ *** 


♦ YES 


♦PC ♦ 

♦ J 2 *.X. 

♦ ♦ . 


. *F12 * 
. .X* ?2 * 
* * 


I 


**** x 


**** 




SONOMN .♦. 

F1 ♦. 

.♦ ♦. 
.♦ END OF ♦. YES 

..«♦. CONTROL .♦ 

♦ DICTIONARY .♦ 

♦ . .♦ 

♦. .♦ 


*****p 4 >* ********* 
♦CALC TOTAL LNG ♦ 

♦ OF COMMON AND ♦ 
...!♦ SAVE IN ♦ 

♦ LOCATION ♦ 

♦ COB&RF ♦Jb ♦ 
***************** 


X 

♦ ****f>j********** 

♦SfiCHCD AC ♦ 
*-*-*-*-*-*-*-*-* 

♦ SEARCH CTRL ♦ 
♦DICT FOR LBL OF^ 

♦ TRANSFER ADDR ♦ 
***************** 



NOTRFR X 

**25******* 
♦SET SNITCH * 

• ADBDSW TO 
...X* SBOB TB 

• ADDBBSS 

* ACCEPTED * 
*********** 



COUCH K X 

*****q I********** 

♦ POINT TO THE ♦ 
♦NEXT CTRL DICT ♦ 
♦ENTRY AND ADD !♦ 

♦ TO TdE CTRL ♦ 

♦ DICT NUMBER * 
***************** 



«****6i!* ******** 

♦ SET UP FOR A 

♦ CTRL DICT 
♦SCAN TO SEARCH 

♦ FOK PHASE 



******** 



**** 



Ml ♦. 

.♦ IS ♦. 

.* CONTROL ♦. 

♦. DICT ENTRY .♦ 

♦ . COMMON .♦ 

♦ . .♦ 

♦. .♦ 


**H2******* 

* SET S« 

♦ MPLDSN TO 
♦ ENABLE 

♦ LD/LR SAP 
♦PROCESSING 

*********** 


♦ YES 


**** * 


* 


♦ FB ♦ 

♦ E5 ♦.!. 

♦ ♦ . 




**** 


X 

*****j i********** 

♦ CALC TBE EBD ♦ 

♦ OF COHBON ♦ 
♦ADDRESS POR THE^ 

♦ CTRL DICT ♦ 

♦ COB BOB *A4 ♦ 
***************** 


PHSTOR X 

*****j 2******* 

♦ SAVE THE CTR 

♦ DICT ADDR AN 

♦ CTRL DICT 

♦ NUMBER OF 

♦ THIS PHASE 
************** 


• 


X 
*♦** 





YES .♦ 


BAP *. 




...♦. 


OPTION -♦ 




*. 


.* 






♦. .* 




1 


♦. .♦ 




***** 


* go 




♦FB * 






♦ Al* 






• * 


X 




• 


***** 


: 


PBADBD 


»PD ♦ 
♦ B5* 


**G<|******* 




* • 


* * 




• 


NO * TURN OB S« ♦ 




PCHRU) 


X* -DBNTSf- * 






* HEX 80 * 


♦GS 




* * 


THIS 


OVERRIDING 


*********** 


TRANSPKR ADDRESS 




IP FOUND, LS PNOB 




AB BBTBI CABD. 



♦PH, UNASSIGNED-*. 
♦. LD/LR .* 



*****J3********** 

♦SBPCOD AC* 

*-*-*-*-*-*-*-*- * 
.♦ CONTINUE THE * 

♦ SCAN OP TBE ♦ 

♦ CTRL DICT ♦ 
***************** 



***************** 



LABEL 
IB FIB ST 
. PBASB 



*J5 
THE LBBGTH AT THIS 
POINT IS TBS 
CUMULATIVE LENGTH OP 
THB INDIVIDUALLY NABBD 
COM HOBS. LI1IA6B EDITOR 
CAB EFFBCTIVBLI STACK 
BANY COBBOBS IP THE! 
HAVE UNIQUE BABES. 



*****K !•********♦ 

• * 
♦PUT ADDRESS ON ♦ 

♦ A DOUBLBHORD ♦ 

♦ BOUNDARY ♦ 

* ♦ 
***************** 
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Chart FB. IJBMAP - Print Map (Part 2 of 5). Refer to Chart 09 



* REPBRBNCBS 
*Z TO FBA1: 
* PAD3, PAPS 



PrlADHD X 

* DISPLACE LOAD * 

* ADDR OF THIS * 
♦PHASE AND »EXT ♦ 

* PHASE BX LNG * 

* OP COMMONS * 
***************** 



**** 

* • 

* BU * 

**** 



.* DOES *. 
.*TdlS PdASE *. 
.♦.OVERLOOP BOOT.* 
». PHASE .* 



•****C1*** ******* 

* POT OfEROOT * 

* MESSAGE INTO * 

* tiki PHI NT * 

* AREA * 



********* 



r******* 



* CONViRl fiAP 

* INPU TO ixX 

* *K1 
*************** 



*****QJ** ******* 

* PUT COMViifcTEO 

* PlfiLDS 

* 1ST J 

* ftAi PH1NT 

* AREA 
**************** 



**D1* ****** 

* SET Stf, * 

* OVRLSM, TO 
* PRINT ROOT 

* OVERLAID 

* * 
*********** 






*****QJ** 



****** 



* HOVE »SVA 
.X* ELIGIBLE* TO 

* MAP PRINT 

* AREA 
**************** 



1-riASK *. YES 

ORIGIN = .* 

.* 



*****gj*** ******* 

* * 

* HOVE "SELF * 
RELOCATING* *..X 

* TO MAP PHIHT * 

* AREA * 
***************** 



-X* 



*****p-|**« ******* 

* * 

* POT ROOT * 

* MESSAGE ISTO * 
♦HAP PRINT AREA * 

* * 
***************** 



*****£ 1**** ****** 

* POT TrfE PHASE * 
*LII3ITS FOB THIS* 

* PHASE III TO * 

* LOC LOROOT * 

* AND rtlROOT * 
***************** 






* POT PHASE 

* NAME INTO 
♦HAP PRINT AREA 

**************** 



***** j -{**** ****** 

* ADD LNG OF * 

* TOTAL COMMONS * 

* TO TRANSFER * 

* ADDRESS * 

* * 
***************** 



*****P3********* * 

* * 
*MOVB •RELOCATA-* 

X* BLB» TO HAP *... 

* PRIST * 

* AREA * 
***************** 



*****& 2* ******** 
* 

* MOVi. »NOT 

* RELOCATABLE* 

* TO HAP untrv 

* AREA 
*************** 



*** **dl* ******** 

* SET OP TO 

* SCAN CTRL 

* DICflONAfll 

* POR AN SL 

* OR PC 
**************** 

**** * 

* * 

* J2 *.X. 

* ♦ 

**** X 



*****£4**« ******* 

* POINT TO * 

* NEXT CTRL * 

* DICTIONARY * 

* ENTRX * 

* « 
***************** 



.* IS *. 
.* THE ENTR1 
*. AN SD OR 



** ***D 4*** ******* 
♦XTPHNO AF * 

•-*-*-*-*-*-*-*-* 

* GET PHASE NO ♦ 

* OF CTRL DICT * 

* CSECT ♦ 
***************** 



.* THIS *. 
.* PHASE EO *. 10 
*. CTRL DICT .*..X 
*. PHASE .* 



*****rn*** ******* 

* SAVE CONTROL * 

* DICT SCAN * 

* 1MF0. GET * 

* ABSOLUTE * 

* BBLO FACTOH * 
***************** 



•* ***G4*** ******* 

* * 

* ADD COflBON * 

* LENGTH TO • 

* RELOCATION * 

* FACTOR * 
** *************** 



***** 

♦ PC * 

* B2* 



HAPHAS X 

***** B ^ ********** 

* GET CTRL * 

* DICT NUMBER ♦ 

* AND CTRL DICT * 

* ADDR OF THIS • 

* PHASE * 
•***•*•***•****** 



***• 






* 


* 






* CS 


*.X. 






• 


• 






**** I 






f a SCAN 


.*. 
Cb *. 








• * 






.* 


END OF 


"*. 


XES 


*. 


CONTROL 




*-... 


*„ 


DICT 


.*" 






*. -* 








*. .* 




X 




* NO 




***** 








*FD * 




. 




* B1* 



*****D5********** 

♦ POUT TO NEXT * 

♦ CTBL DICT * 

♦ EITttl AID * 

♦ ADD1 TO CTRL * 

♦ DICT NUMB KB * 
***************** 



.* CTBL *. 

.•DICT KNTBI *. 

EuOAL 

*. PHASE .* 



***** 

*FA * 

* J2* 

* • 



SCAN 
TSS .** 



**** 

* * 

* B5 * 



END *. 
OF CTRL .*X. 
DICT .* 



**** 

* * 

♦ B«t * 



*K1 

THE FOLLOWING FIELDS ARE CONVERTED TO HEXADECIMAL: 

1. TRANSFER ADDRESS - UPDATED BX THE LNG OF COMMONS. 

2. PHASE ORIGIN LOAD ADDRESS - MAPPED AS LOCORB. 

3. END OP PHASE LOAD ADDRESS - MAPPEu AS HICORE. 

I». COSE IMAGE L1BRARX DISK ADDRESS IN THE FORM CHR. 

THIS 3-BITE ADDRESS IS CONVERTED AT LOCATION -CNVLOP- 
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Chart FC. IJfcMAP - Print Map (Part J of 5). "Reter to Chart 09 



***** 

♦Fa * 

* GH* 



♦AS 

tan control dictiomabi 

MUBBBBS OP TilS CSBCT BBIMG 
PROCBSSBD AMD TAB CSBCT 
POUTED TO BY TAB LB/LB ABB 
COBPABBD. IP AM EQUAL CONDI 
TIOI IS POO MO. THE LD/LR 
BBL0B6S TO TBB CSBCT BEING 
PBOCBSSBD 



* as * 

* * 
**** 



*****£ ^* ********* 

* HOVE •CSKCT*. * 
♦LABEL AMD MIN03* 

* SIGN (IP :*ELO * 

♦ FCTH MEG) TO * 

♦ PRINT AREA * 
***************** 



*****C2^ ********* 
♦CNVBIN FD * 

*-*-*-*-*-*-*-*-* 
* CONVERT CSECT ♦ 
*INPO TO HEX AMD* 
♦MOVE TO HAPLOC * 
***************** 



*****U2* ********* 

♦ SPACE 1 AD * 

*-*-*-*-*-*-*_*-* 

♦ SPACE ♦ 

♦ ONE * 

♦ LINE ♦ 
***************** 



*«***g^** ******** 

♦PRINT AD * 

*-*-*-*-*-•-*-*-* 

♦ PRINT IHASE * 

♦ AND CSKCT ♦ 

♦ INPORMATIuN * 
***************** 



B3 *. 

.♦ NEXT *. 
CTRL DICT 
EN TBI EO. 

. LD/LR . 
*. .* 



.* BELONG TO *. MO 
*. CSECT BEIMG .*.. 
♦.PROCESSED.* 
*. *kb .* 



*****03********** 

* WOVE CHARS ♦ 

* -ENTRY- AMD * 

* LflL FLD TO * 

* PRINT AREA * 

* * 
***************** 



*****£ J** ******** 

♦CNVBIK PD* 

*_*_*_*_*_*_*_*_* 

* CONVERT LOAD * 

* ADDR TO HEX * 

* HOVE TO PRINT * 
***************** 



♦ SET UP CTRL * 

♦ DICT END * 

♦ ADDRESS IN * 

♦ REGISTER ♦ 
***************** 



♦ G2 *.X 

* * 
♦*** 



* iSSD ♦. NO 

OP CONTROL .*. .. 
♦. DICT .* 



***** [ j^>** ******** 



*****q 3*** ******* 

* MOVE ASTERISK ♦ 

* TO BAP PRINT * 

* PLD TO SHOW ♦ 

* UNREFERENCED * 
» SYMBOL * 
** **** ******** ** * 



♦ RESTORE 

♦ CONTROL 

♦ DICT SCAN 

♦ INFORMATION 
*************** 



-*-*-*-*- 



* PRINT 

* ENTRY LINE 

* ON HAP 
**************** 



* G2 * 

* * 
**** 



PROCESS 


* 


NO 


LD/LR 




*. .. . 




* 




.* 






*. .* 




X 


♦ YES 




***** 






*FA * 
* F1* 


X 




* * 


***** 




* 


*PB * 




SCNCMN 


* 3 2* 
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Chart FD. IJEMAP - Print Map (Part <4 of 5). Seier to Chart 09 



**** 

* * 

* A3 * 

* * 
**** 



•*** 

* * 

♦ Ab ♦ 



***** 
*PB * 
♦ C5* 

• * 



PREXTH X 

*****g1**** ****** 

* POT ADDBESS * 

* OP PIBST CTRL * 

* DICT ENTRY * 

* III I REG * 



»» 



************** 



BID ♦.NO 

OP CONTROL .♦... 
DICT .* 



EXTliLP 

*****£ ^** ******** 

* POINT TO NEXT ♦ 

♦ CONTROL ♦ 
..X* DICTIONAKY » 

♦ JSMTRY * 

* * 
***************** 



*****& 3********** 

* * 

* POT MESSAGE * 

* INTO MAP * 

* PRINT AREA * 

* * 
***************** 



*****£ 3** ******** 
♦SPACE1 AD * 

*_*-*-*-*-*-*-*-* 

* SPACE * 

* ONE ♦ 

* LIME ♦ 
***************** 



BR .* HAS *. 

. ..*- ROOT BEEN . 
♦.OVERLAID .* 



a ♦ . 






*****C3** ******* 


.♦ IS *. 




BR 


♦PRINT AD 


CONTROL 


* 


NO 


*_*-*_*-*_*_*-*- 


UICTIOMARX 




*. . . . 


•PRINT POSSIBLE 


.EM TRY EO . 


* 




* INVALID ENTRY 


*.TO ER.* 






* POINT DDP MSG 


*. .* 




X 


**************** 


* YES 




**** 




.MOP 




* * 


**»* '. 






* CI * 


♦ ♦ 






* • 


* D3 *.X. 






**** 


» * 


X 






**** x 


.*. 




TBRSXY .♦. 


V)l ♦ . 






D3 ♦. 


.* *. 




&H 


.* *. 


PLR ST 




NO 


.♦ ERROR *. 


ER 




*. .. . 


*. ON ENTRX 


POU.1D . 


* 




*. LABEL .* 



•****45********** 

* POT HESS AGE • 
« INTO BAP ♦ 

• PRINT ♦ 

• AREA * 

* • 
***************** 



*-*-*-*-*-*-*-*-* 

• SPACE ♦ 

• ONE * 

• LINE * 
***************** 



*****C5********** 
♦PRINT AD * 

*-*-*-*-*-*-*-*_* 

• PBI1T ZERO * 

• LENGTH CTiL • 

• SBCT HSG * 
***************** 



PUT MESSAGE * 

INTO MAP * 

PRINT AREA * 

* 

**************** 



* SPACE * 

* iJNE * 

* LINE * 
***************** 



*****G 1********** 
♦PRINT AD * 

*-*—*-*—*-♦-*-*-* 

♦ PRINT ROOT ♦ 

♦ STRUCTURE ♦ 

♦ OVERLAID MSG * 
***************** 



X 



tfl ♦. 
.♦ ♦. 

.* AMI 

. DO PLICATE 
♦ . LABELS .' 
♦ .POOND.+ 
♦. .♦ 

♦ YES 



♦ A3 ♦ 

• * 
**•* 



*-*-*-*-*-*-*-*-* 

* SPACE ♦ 

* ONE * 

* LINE ♦ 
***************** 



*****p < ** ****** 

* MOVE 

* ONREPERENCED 

* SYMBOL MSG 

* TO HAP 

* PRIa'i' AtffcA 
*************** 



EXTNPR 

*****£ 2** ******** 

* MOVE CtiAhS ♦ 

♦ EXl'RN ANL ♦ 

• EXTRN LABEL ♦ 

♦ TO MAi ♦ 

* PBI1T AHiiA ♦ 
***************** 



*-*-*-*- 



*****g 3********** 

♦ * 

♦ PUT MESSAGE ♦ 

♦ INTO MAP ♦ 

♦ PRINT AREA ♦ 

♦ • 
***************** 



*****p 3* ********* 
♦SPACE1 AD ♦ 

*-*-•-*-*-*-*-*-* 

♦ SPACE ♦ 

♦ ONE ♦ 

♦ LINE ♦ 
***************** 



♦ PRINT INVALID ♦ 
♦TR LABEL ON BND^ 

♦ OR ENTRX MSG * 
***************** 



X 



**** 

•FA * 

* Pb «.X. 



.♦ ANT ♦. NO 

..X*. ERRORS .♦... 

♦.THIS ROI .♦ 



♦*** 

♦ ♦ 

♦ Eb ♦ 



♦ J4* 

• * 
**** 



**** 

* * 

* D3 ♦ 

* * 

**** 



♦ PRINT 

♦ UNREFERENCED 

♦ SYMBOL MESSAGE 
**************** 



**j2******* 

* • 
RESET 

SH EXTNSW 
TO BRANCH 

* * 
*********** 



**** 

* *. 

♦ C1 ♦ 



.♦ ANY ♦. 
.* ZERO LNG *. 
♦. CONTROL 
♦.SECTIONS .♦ 



* A5 ♦ 

• * 
**** 



*P4 

MESSAGE 21«bl 

INITIALISED HERB 

POR PRINTING IN 

JLNKEDTA 



****Qlt**« ****** 

♦ ABTERR ♦ 

♦ CHART AP ♦ 

♦ • 
*************** 



****m»********* 

♦ SVC b ♦ 

♦ CANCEL * 

♦ ♦ 
*************** 



BBR085 X 

*****P5 ********** 
♦INIT ERROR HSG ♦ 

♦ RBG TO B5 POR ♦ 
♦ABORT ON ERROR ♦ 

♦ IN S PHASE ♦ 

♦ ♦»« ♦ 
***************** 



65 ♦. 
.♦ ERROR ♦. 
IBS .♦ IN LMEDT 



♦. PHASE .♦ 



OPTION 

CANCEL 

01 



♦♦** 

* • 

♦ B5 ♦ 



**** 

GORLD X 

*****J4********** 

♦ • 

♦ CLBAR BRROR * 

♦ REGISTER • 

♦ RB ♦ 

♦ * 
***************** 



* ***K4********* 

• IJBMLD ♦ 

♦ CHART GA ♦ 

* * 
*************** 



EXECNB X 

***J5************ 

src o 



***************** 



*****( 5********** 

♦ ♦ * ♦ 

♦ ♦ SVC 7 ♦ ♦ 
.♦ ♦ IAIT ♦ ♦ 

* ♦ * ♦ 

* * ♦ * 
•****•••*•**•*•** 
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Chart. FE. IJBMAP - Print Map (Part 5 of 5). Feter to Chart 09 



****C3********* 

* CHVLOP * 

* »E3 * 

* * 
*************** 



****Ait ********* 

* * 

* CHTfilH * 

* * 
*************** 



CNVBIM X 

** ***£**** ******* 

• LOAD A BEG * 

♦ KITH 6, TUB * 

• CODNT OF * 

* HEX OUTPUT ♦ 

* CHAHACTBBS * 
** *************** 



*****C4|**« ******* 

* SHIFT A * 

* BYTE FBOH * 
» I1P0T BEG TO • 

* ADJACEHT BBS * 

* * 
***************** 



*****B5********** 

* * 

* ADD OBB * 

* TO ODTPDT * 

* ABBA POABTEB * 

* * 
***************** 



lO -* HEX 

...*. CHA& CBT 
*. BQ KBHO 



*K3 
3NTHY POIHT 
TO CON7BMSION 
SUBHOOTXNE 
PBOH HAP 
PHASE ffHBN 
THE CYLIIIDEB 
VALUE OF A 
DISK ADDHESS 
IS TO BE 
CONVERTBU. 



ZEBO 
ADJACEBT 
BBGISTEB 

**************** 



*• ***B %****•***** 

* SBIFT A * 

* HALP BITS * 

* FBOH IB PUT * 

* BEG TO * 

* ADJACEBT BEG * 
***************** 



** ***p4********** 

SUBTBACT * 

9 FBOH * 

ADJACBHT * 

BEGISTEB * 

**************** 



****05********* 

• BET TO LBK * 

• BBG ADDB * 

• * 
*************** 



BBSULT 

OF CALC 

.POSITITfc 



*****K<t********** 

ADD 57 * 
TO ADJACEBT * 
BEGISTBR * 
* 
***************** 



*****j<l******** 

ADD 192 TO 
ADJACEBT 
BBGISTEB 

*************** 



*****E4**« ****••• 

* STOBB BBX * 

* CBAB IB LOC * 

* POIHTBD TO • 

* SPECIFIED BEG • 
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Chart GA. IJBBLD - Pass 2 P-Pcinter Processing. Refer to Chart 10 



*•••& 1**** ***** 

* * 

* IJHRLD * 

* * 
*************** 



* liAS 
RELOCATION 

♦ . BBSS 

•.DOME .» 



****t;1*** ****** 

RELOCATE 

A DDR CONSTANTS 

III CCBS 

AND CCWS 

***************> 



«**• 
* 
♦ A2 



HLDHAG X 

*****A2* ********* 
♦BDS001 GG* 

*-*-*-*-*-*-*-*-* 

• HEAD KLI) * 

• RCl>. PHOft * 

• SXS001 * 
***************** 



*** a ^** ******** 

* 

SET UP LEG * 

POINTER TO * 

INPUT AhEA * 

PLUS 12 * 

*************** 



•NOP SWITCH * 

* RLDSW1 IN 
THIS RTN- 

* POINTER 
♦PROCESSING * 

*********** 



* *.i 



**** 
riLORET X 

*****[>^« ********* 
HBPBHENCES * * 

TO SAD2: * LOAD KEG WITH * 
GBC2, GBG3 * CUT OP BITES * 
GCC1, GCC4 *TO tit PROCESSED* 
GCEb, GBD3 * AND SUBTRACT 1* 
GEJ1 ***************** 



**** 

* * 

* B3 * 

* * 
**** 



RLUOP X 

**B3******* 

* SET SH * 
* RLDSN3 IM 

* CONSTANT PBO- 
* CESS IMG SECT 

* TO BRANCH * 
*********** 



*ES .* POINTER *. 

*.EO. MINUS CTRL.* 

*. DICT .* 

*. NO. .* 



**D3****«*« 

• * 
NOP 

Si* 
HLDSU3 

• * 
*********** 



POINTER 

IN THIS 

PHASE 



*****fjj|*** ******* 
•STORE PHASE MO * 

• OP P-POINT * 

* II LOC • 

♦ -PHSMO- • 



********* 



******* 



BLD 


«. IBS 


PASS 3 


.*.. .. 




.♦ 


►. .* 




• - -* 


X 


* ao 


• ••*• 




•GB • 




* B3* 


X 


• • 


***** 


• 


♦Gb * 


TSTRLD 


• B1* 




• • 





FIND CONTBOL 

DICT BNTBX 

POR PHASE 

************** 



.* :1AS * 

AN ABORT 

ERROR 

.OCCURRED 



*****f-|**** ****** 
•INITIALIZE C.I.* 
•BLOCK SIZE HELD • 

• LIB HECOED5 * 

• PER TRACK POR * 

• STSBBS * 
***************** 



*****£ 1********** 

• RESTOKE * 

• DISK ADDRESS * 

• OF ♦ 

• LAST BLOCK * 

• * 
***************** 



*»U1»*****« 

♦flODIFX SUB-* 

* RTN AT LOC * 
• DERDAD OP TRP 

♦ CTRL. TO LOC* 
• ROT SID *J5 * 

*********** 



****«j i* ********* 

* 

SAVB * 

NEXT ADDRESS ♦ 

ON STS001 ♦ 

IF DISK ♦ 

i *************** 



* J3 * 

• * 
**♦• 



***** 
*GE • 
* Bb* 



END 

OP CARD 

IMAGE 



*****p^« ********* 

* STOHE NEWLY' ♦ 

* CALCULATED * 

* errs count in ♦ 

♦THE l!»PUT AREA ♦ 

* * 
***************** 



POINT TO 

NEIT hLu 

RECORD 



RLDSW1 .♦. 




HZ ♦. 




.♦ R-/P- *. 




.♦ POINTER ♦. 


BR 


♦. PROCESSING . 


*. . . . 


♦.NECESSARI.^ 




♦.♦ HS .* 




♦. .♦ 


X 


♦ NOP 


***** 




*GC ♦ 






* *!• 






* * 






* 






RLDCON 


X 




**J2******* 




♦ RESET SN ♦ 




* RLDStfl TO ♦ 


♦ BRANCH- 


• 


• PROCESS « 




♦ CONST AWT- * 




*********** 




X 




**** 




• * 




♦ B3 ♦ 




* . * 




*4 


t»* 





*****£ 3******** 
♦LTCDAD AB 

*-*-•-•-*-*-*-* 

* GET HELOC 

* PACTOR POR 

* P-POINTER 
*************** 



*****p j*** ****** 
* 

* SAVE HELOC 

* PACTOB IN 

* LOCATION 

* RPOPP 
**************** 



*****Q J*** ******* 

* GET COBPLETE * 

* PHASE NUBBEB * 

* THIS CSECT ♦ 

* BELONGS TO ♦ 

* CD IBAGB * 
***************** 



* 14 * 

* * 
**** 



**•* 

♦ * 

* J3 ♦ 



•****j3********** 

* SAfB NUBBEB ♦ 

* OP BLOCKS * 

* NBITTBM FOB * 

* SfS001 ■ TAPE * 

* • 
***************** 



**•* 

X 
*****K3********** 
•BEP001 GG* 

*-*-*- *-•-•-*-•-• 

* REPOSITION • 

* STS001 TO ♦ 

* STABT OF FILE * 
**************** • 



♦ TORN ON ♦ 
♦ 8APSH, * 

* RELOCATABLE * 
* * 

*********** 



•*B5******* 
• * 

* TDBB OFF * 

BAPSN, 

* MOT ♦ 
♦RELOCATABLE^ 



X 




PS3SH2 .*. 




F<» ♦. 




.♦ •• 




.* RLD ♦. IBS 


♦. PASS 3 .♦ 




♦. .♦ 




♦. .♦ 




*. .♦ 


X 


* NO 


***** 




*GB * 


♦GE • I 


• B3* 


* C3 *.X. 


• * 


• * 


* 


**** . TSTBLD 


GETCENT X 




*****G<t**« ******* 




• • 




• SAVB PHASE • 




♦ BBTRX AS * 




• CURRENT CITB * 




* DICT.ENTRI * 




***************** 




] 


• B5 




TBIS PBOGBAB SNITCH 




IS ALNAIS SBT TO 


PS3SU4 .*. 


BOP OB TB£ FIBST 


H4 *. 


BLD BBCOBD 



***** 
*GB * 
* B1* 

* * 



***** 
♦GO ♦ 

• a** 

* * • 



BRANCH OB HIGH TO 
ROTSID INSTEAD OF 
BBBOB 



•*** 

* • 

* A2 • 

* • 
**** 
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Chart GB. IJB8LD - Pass 2 B-Fointer Processing* Hefer to Chart 10 



***** REPEJ 
* * TO 
V ** viABb 
* m * GDPM 


<£NCBS 
GBB1: 
p GAH4 


KLCl'J: 
** 

* 

* 

*« 


**»* 

* * 

* * 
**** 




**** 

♦ Bi * 

* * 
**♦* 


X 

**,j1******* 
SET SK * 
RLDSW2 TO * 
URANCH- * 
INITIAL * 
CONDITION * 
*********** 


t< X 
***#,>** ******** 

ADO ONE TO * 
THE CNT OP * 
UNRi%SOLVEi> * 
ADCONS KEPT * 
IN LOC U Ml? BSD * 
*************** 


X 
. RNATHN .*. 

BJ *. 
.» *. 

. YES .♦ ♦. 

♦ . uhrbsolvbd .* 

». LR .* 

*. .* 
*. .* 



**Dl******* 

* RKSET SW * 

♦ RLDSW2 TO * 
NOP AND CLEAR 

* ER 1..1TRY St* * 

• * 
*********** 



**C^******* 

* SET SK * 
RLDSM3 TO 

BHANCH- 
BiPASS 

♦ PROCESS INI* * 
*********** 



*****C j* ********* 
♦LPCDAD Ab * 
*_*-*-*-*-*-*_*-* 



* PIMD SD/PC 

* RESOLVED LR 

* BELONGS TO 
************** 


**** 




* * 




* i>3 *.X 

* * 




**** X 


RLDSW2 .< 

D3 

.* WJ 

.* THB 

♦ . POI1 

*. AM 

*. *I 


IS *. 

H- 
ITER 

EB . 
J2 .* 



***** R 1* ******* ** 

♦LTCDAD AB * 

*_*_*—*-*_*_*-*_* 

* GET RELOC * 
♦FACTOR OF CTRL * 

* DICT ENTRY * 



*****pi**« ******* 

* SAVE THE * 

* ASSEMBLED ♦ 

* ORIGIN OF THE * 

* CTRL D1CT * 
» ENTRY * 
***************** 



♦ CTRL *. YES 

UICT ENTRY -* 

*.SD OR PC .♦ 



*E2 
IF THE R- POINTER HAS 
AN ER IT IS NECESSARY 
TO PROVIDE AN ASSEM- 
BLED ORIGIN FOR USE 
IN CALCULATING THE 
LOAD ADDRESS. THE 
ASSEMBLED ORIGIN IS 
THAI ADDRESS OF THE 
SD, PC- OR C» THAT 
DEFINES THE ER. SWITCH 
RLDbK2 IS THE ROUTING 
SWITCH THAT DETER- 
MINES IP AN ASSEMBLED 
ORIGIN IS HEEDED. 



*****£ j«* ******** 

♦ ADD ASSEMBLED * 
♦ORIGIN OF CTRL * 

♦ DICT ENTRY ♦ 

♦ RELOC FACTOR- ♦ 
LOAD ADDR- ♦ 
************ 



*****p 3* ********* 

♦ ADD THE ♦ 

♦ LENGTH OF THE ♦ 

♦ CO MM ON TO THE ♦ 

♦ CALCD ♦ 

♦ LOAD ADDR ♦ 
***************** 

***• 



RLDCMN X 

*****q 3** ******** 

♦ STORE EITHER ♦ 

♦ LOAD ADDR OR * 

♦ RELOC FACTOR ♦ 

♦ IN LOC RFOFR ♦ 

♦ *B«I * 
***************** 



*B« 
IF THE R- POINTER HAS AN 
ER, THE CONTENT OF RFOFR 
IS THE SOB OF THE 
ASSEMBLED ORIGIN AND 
RELOCATION FACTOR. IF 
THE R POINTER HAS A NON 
ER. ONLY Td£ 7 ALUS OF TBK 
RELOCATION FACTOR IS STONED 
IN LOCATION RFOFR. 



X 

***** 
♦GA ♦ 
* D2^ 



.* 


CThL DICT ♦. YES 




ENTRY A .♦ . 


** 


. COMMON .♦ 




♦. .♦ 




♦. .♦ X 




♦ NO *♦*♦ 




* * 




* GJ ♦ 




• ♦ 




**** 




X 




.♦. 




J1 ♦. 




.♦ IS ♦. 


.* 


CTRL DICT ♦. YES 




ENTRY AN ...... 




ER .♦ 




♦. .♦ 




♦. .♦ X 




* NO ♦♦♦♦ 




♦ ♦ 




♦ B2 ♦ 




X ♦ ♦ 




**** •**• 
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Chart GC. IJBPLD - Pass 2 fiLD Constant Erocessing. Refer to Chart 11 



***** 

♦GA * 

* U2* 



.♦ ARE ♦. 

. R- AND P- . 
POINTERS *OT* 

♦ . E(j .* 



**£1* ****** 
* SET SH * 

* RLDSNl TO 
NO F- ALLOW 

* POINTER 
'PROCESSING * 

*********** 



RLADCN X 

*****33********** 

*DEROAU AK ♦ 

*-*-*-*-*-*-*-*-* 

* SET OP CORE * 

* IMAGE BLK 

* IN HKAflEA 



*•** 



k********* 



.* CONSTANT * 


. NO 


TO BE 


.* 




♦ .PROCESSED.* 






*. .* 






*. .* 




X 


* its 




***** 






*GA * 






♦ D2* 






* * 






• 






RLDRET 


I 






****D 1********** 




GET RELOC 


* 




PACTOR OP R- 


* 




POINTER IN 


* 




REGISTER 


* 




**************** 





.♦. HOTSID 

C3 *. ****»cn********** 

.• WAS *. * ADD 1 TO CNT * 

THE ADCON *. ILS * OP A DC ON S * 

BEIOND THE .* X* OUTSIDE PHASE * 

. PHASE .* * LIHITS - LOC * 

♦-LIMITS.* * BOTCNT - * 

*. .* ***************** 
* NO 



*****B5********** 

* SUBTRACT 1 * 

* PHOH ADCON ♦ 

* POINTER SO * 
♦THAT IT POINTS * 

* TO LAST BITE * 
***************** 



* C5 *.X 



**** 

RESDCN 1 

*****C5********** 

* REPLACE * 

* ADCON IN * 

* LOC MEARBA * 

* ONE BITE AT * 

* A TIHE * 
***************** 



*****£ 1*** ******* 

* * 

* CALC LOAD * 

* ADDR OP THE * 

* LOAD CONSTANT * 

* * 
***************** 



.* 










PI 


* . 








.* 


* 








♦ RLD 


* 


. 


rES 


PASS 


3 




.* 




*. 




.* 






*. 


.* 








*. 


* 






X 


* 


NO 






***** 

*GE * 
* B1* 










* * 










* 








RLDPKC3 


X 










***G 1********** 










* 




CALC AND 




* 




ATE LNG 


OP 


THE* 




LOAD CON START 


* 





*****D3********** 






* * 




*« 


***D5********* 


* CALC LOAD 


* 






* 




* 




* ADDR OP 


* 






RLDRET 




* 


SUBTRACT 1 


♦ADCON RELATIVE 


* 










* 


FfiOH ADCON 


* TO START OP 


* 










* 


POINTER 


* LOC HKAREA 


* 










♦ 




************* **4 


** 










**************** 


] 






♦£•4 








] 








TdlS 


SNITCH EXITS ON 








I 






NO LEG «HBN THE ADCON 


LS 




X 


KLDSW4 .♦. 






BEING RESTORED TO THE 






.♦. 


E3 ♦. 






CORE 


HUGE BLOCK. 






E5 ♦. 


.♦EXTRACT^. 














.* UAS ♦. 


.♦ ADCON ♦ 


. NO 






NO . 


♦TUB ENTIRE ♦. 


♦. FROM CI 


*. 










.♦. 


ADCON BBEN . 


*. BX.K .♦ 














♦.REPLACED .* 


♦. ♦EM .♦ 














*. .♦ 


♦ . .♦ 






X 




I 




♦. .♦ 


♦ YES 




**** 




**** 


* IBS 






* 


* 




* 


* 








* 


C5 ♦ 




* B3 


• 








* 


* 




* 


* 


I 








► *** 




**** 


***** 
















♦GA ♦ 


X 














♦ 02* 



******** 



*****P3********** 

* HOVE ONE * 

* BITE OF THE * 

* ADCON INTO ♦ 

* THE WORK * 

* AREA * 
***************** 



*****£ 3******* 
* 

* ADD ONE TO 

* ADDR OP 

* THE ADCON 
* 
************** 



**H1******* 

* * 
SET SN 
RLDSN4 

TO NOP- 

♦ EXTRACT- ♦ 



.♦ HAS ♦. 

.♦ THE ♦ 

.ENTIRE ADCON 

♦. BEEN .♦ 

♦.MOfED.^ 

♦. .♦ 

♦ IBS 



**** 

* * 

* B3 ♦ 

* * 
**** 



*****j3********** 

♦ ADD THE ♦ 

♦ RELOC FACTOR ♦ 

♦ OF R- POINTER ♦ 

♦ TO THE ADCON ♦ 

♦ ♦ 
***************** 



**K3******* 

♦ RESET S» ♦ 

RLDSW4 

TO BRANCH - 

REPLACB- 

* * 
*********** 



* B5 ♦ 

* * 
**** 
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Chart «i.'. IJPPLD - Pass 3 PLD Constant Processing. Refer to Chart 11 



***** 

*GG * 
* Dl* 



♦SET -RLDSIfS- * 
* SWITCH TO ♦.... 

* BRANCH * 



********** 



I 

***** 
*GE * 





**** 




* 




* 




* 


c* 


* 


.X. 


* 




♦ 





*****c 1********** 

* * 

* GET COUNT OF * 

* UNRESOLfED * 

* ADDRESS * 

* CONSTANTS * 
***************** 

**** l 

* * 

* D1 *.K. 



.* ANI *. 

.♦RELOCATABLE*. MO 
FHASE .♦. .. 
♦.PROCESSED.* 



***** 
♦GP ♦ 
♦ A1» 



*****£ 1********** 

* * 

* MOVE COUNT ♦ 

* AND MESSAGE ♦ 

* TO PRINT * 

* AREA * 
****** *********** 



-*-*-*-*-*-* 



*********** 



***G 1*********** 
PRINT AD 

*-*-*-*-*-*-*-*-* 
PRINT 
* ONE LIKE * 

***************** 



.X 



*****q 2** ******** 

* * 

* INITIALIZE * 

* CURRENT PHASE ♦ 

* NUMBER TO ♦ 

* nisus ONE * 
***************** 



SET SWITCHES^ 

♦ P33SW1 
PS3S*^ 

♦ PS3SN3 

» P33Si<4 * 
*********** 



*****p^* ********* 

* * 

* CALCULATE END * 

* OP RLD OUTPUT ♦ 

* I/O AREA ♦ 

* * 
***************** 



*****G2* + ******** 

* INITIALIZE ♦ 
♦CURHENT PHASES ♦ 

* HLO ITEMS ♦ 

* COUNTER TO * 

* ♦ J3* 
***************** 



***** 
*GA * 
* K3* 



***** 
•GA * 

♦ an* 



RBADLST X 

** ***bi*** ******** 

♦ GET # OP * 

♦ RLD ITEMS OF ♦ 

♦ MEN PHASE * 

♦ FROM RLD « 

♦ CONTROL FIELD ♦ 
***************** 



** ***£<»*** ******* 

♦ * 

♦ GET # OF ♦ 

♦ TEXT BITBS ♦ 

♦ IM LAST ♦ 

♦ TEXT BLOCK ♦ 
***************** 



*****[) it*** ******* 

• * 

♦ CALCULATE * 
•ADDRESS III I/O ♦ 

* AREA TO POT * 

* 1ST RLD ITEM ♦ 
***************** 



*****£!)*** ******* 

♦ * 

♦ INITIALISE ♦ 

♦ TO GET * 

♦ CORRECT ♦ 

♦ CIL RECORD • 
** *************** 



***F4*** ********* 
DERDAD AK 

*-*-*-*-*-*-*-*-* 

READ BLOCK 

* MHERE RLD ITBflS 

CAN BE STORED 
**************** 



***** 
♦GB ♦ 
* B1* 



FIRST 


* 


NO 


TIME 




* . . . . 








.♦ 






♦. .♦ 




X 


* jfES 




**** 






* 






* C2 






* 


• 




• *** 


X 






J I******* 






* 




MOOIPI 


* 


MESSAGE 




* 



* J3 
AN RLD ITEM IN THE COSE IMAGE 
LIBRARY IS H BTTES LOMG 
IT CONSISTS OF A 1-BXTE FLAG, 
A 3-B1TE ADDRESS COSSTABT 
THE BIT POSITIONS IM THE FLAG 
BYTE ARE NOT IDSITICAL TO 
THOSE III THE ORIGINAL FLAG 
BYTE. 



********** 



****** 1* ********* 

• * 

♦ GET COUNT OF ♦ 
♦ADCONS OUTSIDE ♦ 
♦LIMITS OF PHASER 

* * 
***************** 



* Dl ♦ 

• • 
**** 
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Chart GE. 



IJBBLD 



Pass 2 Abort and Map Routines. Hefer to chart 11 



HKPERENCBS 
TO G£B3: 
GA35, GAF4 
GDA2 



***** 
*GA * 

• £1* 



RLDPRC3 X 

*****g I********** 

* HOVE ADDRESS * 
♦OP I/O ADDBESS * 

* CONSTANT TO * 

* I/O AREA * 



******* 



******** 



*****C1**** ****** 

* # 

* HO¥E THE * 

* LENGTH AMD * 

* SIGH PITS TO * 

* THE I/O A HE A * 
mm* ************** 



*****D i****«****« 

♦ * 
♦REDUCE COR RE NT ♦ 

♦ PHAS3S RLD * 

♦ COUNTER BI ♦ 

♦ ORB * 
***************** 



♦ RLD 

♦ COOHTER 

♦ ZERO 
* 
********** ******> 



*****p i********** 

* * 

* itfCREflERT * 

* POINTER TO * 

* I/O AREA * 

* * 
***************** 



OF RLD ♦. MO 
1TEHS .♦... 

CORRECT .♦ 



.♦ NEXT ♦. 

PHASE 

♦RELOCATABLE^ 



*****B5********** 

* * 

♦ MOTE ERROH * 

♦ BESS AGE TO ♦ 

• OUTPUT AREA • 

* WO. • 
***************** 



X 
***** 
♦GA ♦ 
♦ G4* 



**D3******* 

*SBT SWITCH ♦ 

BLDSW3 TO 

BYPASS RLD 

ITEMS 

* * 

*********** 



X 
***** 

♦GA ♦ 
♦ D2* 
* * 

* 
RLD RET 



WRITE PULL 
* BLOCK AND READ* 
NEXT ONE 
***************** 



*****j |********** 

♦ * 

♦ RESET RLD ♦ 

♦ ITEHS COUNTER ♦ 

♦ TO START OP ♦ 

♦ I/O AREA ♦ 
***************** 



***** 
♦GA ♦ 

♦ D2^ 



*****D5********** 
♦SPACE 1 AD ♦ 

♦-♦-♦-»- ♦ ♦ -♦-♦-♦ 

♦ SPACE ONE ♦ 
♦LINE ON SXSLST * 

• * 
***************** 



*****£5********** 

•PRINT AD * 

*_*_*_*_*_*_*_*-* 

♦ PRINT ERROR ♦ 

♦ MESSAGE ONTO ♦ 

♦ SISLST ♦ 
***************** 



*****P5********** 

♦SPACE1 AD ♦ 

*_*-*-*-*-*-*-*-* 

♦ SPACE ONE ♦ 
♦LINE ON SISLST ♦ 

• * 
***************** 



G5 ♦. 
.♦ ♦ 
.♦ SI SLOG 
♦. = 
♦. SISLST 
♦. .♦ 
♦ . -♦ 
♦ NO 



ABORT 10 

*****H5********** 

♦LOGHSG AD ♦ 
*_* _*_* _*_*_*_*_* 

♦ PRINT ERROR ♦ 

♦ NESS AGE ONTO ♦ 

♦ SISLOG ♦ 
***************** 



♦K3 
PRINT HAP ON SISLST 
IP THE HAP SWITCH IN 
THE PRINT SUBROUTINE 
IS POUND TO BE ON. 



♦ CLOSE SISLNR ♦ 

♦ AID SIS001 * 

♦ IP NBCESSARI • 

♦ * 
***************** 



****£ 5 ********* 

• CANCL ♦ 

• CHART AH * 

• * 
*************** 
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Chart GF. IJBRLD 



Pass 2 Block Phase Header, Refer to Chart 11 



***** REFERENCES 

* * TO GPA1: 

* ** GDC2, GEB3 



HKLST X 

♦••Al*********** 

WRITE AG 

*-♦-*-*-♦-*-*-*-* 
WRITE LAST 
* BLOCK IN ♦ 

CI LIB 
***************** 



*****& 3** ******** 



***************** 



CORE *. YES 

IrtAGE LIB .*.... 
. ON PBA .* 



♦♦♦♦»C1********** 

* * 

* SET OP CCW * 

* FOR SEAL DISK * 

* OPERATIC* * 

* * 
***************** 



*****D 1********** 
♦POT THE NUMBER * 

* OP THE FIRST * 

* CYLINDER OSED * 

* IN THIS RUN * 

* INTO A * 
***************** 



VERLOP X 

*****£, 1********** 

♦STORE CYLINDER * 

* VALUE IN LOC * 

* VERA DDR. THE * 

* VERIFY ADD* * 

* LOCATION *B3 * 
***************** 



* P1 ♦.*. 

* * 
**♦* 

X 
***p I************ 

* SVC VERIFY * 
CYLINDERS 

* *B3 • 

***************** 



**** 

♦ * 

* A3 ♦ 

• * 
**** 



CIL 
ON RPS 

DEVICE 



tO INT TO 

FIRST LINK 

EDIT CSECT 

♦ 

*********** 



*****D3********** 

* SET OP SET * 

* SECTOR CCN * 

* IN VERIFY * 

* CHAIN * 

* ♦ 
***************** 



•****g3********* 
* 

* ADD ONE 

* TO CURRENT 
♦CYLINDER VALUE 
* 
**************** 



.* ALL 

. CYLINDERS 
♦.VERIFIED . 



*-*-*-*-.*- 



***************** 



****fl 3*** ****** 

* IJBCAT * 

* CHART HA * 

* * 

*************** 
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Chart GG. IJBRLD - Pass 2 Subroutines. Befer to Chart 11 



**** A 1* ******** 

* RDS001 * 

* *A2 ♦ 

* * 
*************** 



**************** 



*A2 

8DS 001 IS A SUbKOOTlNK 
TtiAT KEADS SKWUENTIALLf 
FROM SISJU1 



♦B2 

IF SYS001*TAPE. PCT001 

CONTAINS THE NUHBEH OP 

HLD ITEMS I BITTEN. 

IF SYS001=D1SK # PCT001 

CONTAINS OVERFLOW 

PACTORS. 



**** A 3* ******** 

* * 

* CLOSE * 

* * 
*************** 



****A4********* 

* * 

* HEPOO 1 * 

* • 
*************** 



LAST 

RECORD 

READ 



• LAST *. YES 


.* SIS001 


RECORD ...... 


*. Otf FBA 


. READ .* 


*. 


♦- .* 


*. .* 


*. .* X 


*. .* 


* MO ***** 


* NO 


*GD * 




* A1* 




* * 




* 




TSTDNR 




X 


X 


»**£ 1********** 


*****& 2******* 


* 


* 


DECREASE * 


* GET DISK 


CONTENTS OP * 


* ADDRESS FROM 


'CT001 BT ONE * 


* ONS001 



***************** 



*****P1*** ******* 

* * 

* SET UP CCH * 

* AND CCB FOR * 

* TAPE READ * 

* * 
***************** 



RDOK01 

*****£ 1********** 

* SUPPLI TAPE * 

* OP DISK CCB * 

* AND CCW TO * 
♦DISKIO ROUTINE * 

* * 
***************** 



***a i*** ********* 

DISKIO AG 

»-♦-♦- * - ♦ - ♦ - » -♦-♦ 
READ A RECORD 
* PROrt SYS001 * 

***************** 



*****J1****« 

* SAVE SECTOR * 
♦VALUE FOR NEXT * 

* BLOCK TO BE * 

* READ * 

* * 
***************** 



********** 



NEXT DISK * 

ADDRESS ON * 

SYS001 * 

*************** 



***** ti 2** ****** 
* 

* SAVE NEXT 

* DISK ADDRESS 

* IN ONS0O1 
* 
*************** 



*****H 2*** ******* 

* * 

* SET SECTOR * 
♦VALUE OP BLOCK ♦ 

* TO BE READ ♦ 

* * 
***************** 



*****j2********** 

♦ HOVE SET SBC- ♦ 

♦ TOR. READ CNT ♦ 
.♦OR TIC FROH RPS* 

♦ TABLE TO COi ♦ 

♦ CHN FOR SIS 001 ♦ 
***************** 



***** < J3********* * 

* * * * 

* * CLOSE ♦ ♦ 

* ♦ SYSLMK * ♦ 

* * SYS001 ♦ ♦ 

* * * * 
***************** 



*****D 3** ******** 

♦ * 

♦ SET SNITCH * 

♦ FOR ♦ 

♦ CLOSED FILES ♦ 

♦ * 
***************** 



****BJ********* 
RETURN VIA ♦ 
LINK REGISTER ♦ 
* 
*************** 



*****C4********** 

♦ HOVE STARTING * 

♦ DISK ADDRESS ♦ 

♦ OF SISU01 * 

♦ INTO O1S001 * 

♦ * 
***************** 



*****C5********** 

* * 

* SET SNITCH ♦ 

* FOB ♦ 

* SECOID T1HE ♦ 

* • 
***************** 



*****G3********** 

♦ SET SNITCH ♦ 
♦FOR FIRST TIflE * 

♦ UPDATE DISK ♦ 

♦ ADDRESS ♦ 

♦ * 
***************** 



♦ WRITE BLOCK ♦ 
***************** 



*****j 3*** ****** * 

♦ • 

♦ UPDATE DISK ♦ 

♦ ADDRESS FOR ♦ 

♦ NEXT BLOCK ♦ 

♦ * 
***************** 



***•*£«********** 

♦RESTORE ROBBER ♦ 

♦ OP RECORDS TO ♦ 

♦ BE READ INTO ♦ 
♦LOCATION FCTOOI^ 

♦ * 
** *************** 



***?<****** ******* 

* * 

BSF AND FSB 

• * 

• ** ************** 



* ***G4********* 

♦ RETURN VIA ♦ 

♦ LINK REGISTER ♦ 

♦ * 
*************** 



***£5************ 

FDISKIO AG 

*-*-*-*-*_*-*_*-* 

♦ HBITB BLOCK ♦ 
***************** 



*****p5********** 

* * 

• SAVE RUBBER ♦ 

♦ OF LAST ♦ 

• WRITTSM BLOCK ♦ 

* * 
***************** 



*****Q5********** 

* * 

* HIT CCN ♦ 

* TO READ FIRST ♦ 
•PHYSICAL BLOCK ♦ 



*** * *£ 5 ********* * 

* • 
•INIT SNITCH TO * 

* PROCESS FIRST ♦ 
♦LOGICAL RECORD * 

* * 
***************** 



*****jtt********** 

♦ • 

♦ SET SNITCH ♦ 

♦ FOB SECOND ♦ 

♦ TIHE ♦ 

♦ • 
•*•*•**•********* 



• •♦♦^♦♦♦♦***** 

♦ RETURN VIA ♦ 

♦ LINK REGISTER ♦ 

♦ • 
*************** 
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Chart HA. IJBCAT - Update GIL Directory (Part 1 of 2) . fief er to Chart 12 



***• 

* ♦ 

* A5 * 

* * 
**** 



* ***£ -|********* 

* * 

* IJBCAT * 

* * 
*************** 



IJBCAT 

***** B |********** 

* CALCULATE * 

* STARTING * 

* ADDRESS OF * 

* STOW TABLE * 



****** 



* A2 



******** 



****C 1»********* 

* 

BUILD STOW * 

TABLE * 

HEADER * 

* C2 * 

**************** 



*****D i********** 

* * 

* I8IT SCAB OP * 

* CNTB DICT AND * 
♦END ADDRESS OP * 

* STOW TABLE * 
***************** 



***** p-j* ********* 

* * 

* IP UND OP * 

* STOW TABLE * 

* CALL inAlMDJE * 

* * 
***************** 



BUILD 

*****Q-|**** ****** 

♦BLDBNT HA * 

*-*-*-*-*-*-*-*-* 

♦ BUILD STOW * 

* TABLd ENTRI * 
♦POR THIS PHASE * 
***************** 



* UPDATE * 

* POINTER TO * 
♦NEXT CNTR DICT * 

* ENTRT * 
** ** ************* 



END OP 
CNTR DICT 
. REACHED .' 



* B2 
THE SIOW TABLE 
STARTS IMMEDiATELI 
APTER THE CONTROL 
DICTIONABI. 
THE STOa TAB LB 
IS THE INTERFACE 
WITH JMAINDIB. 



* C2 

NUMBER OP EUTRIES 
(BNTNUill INITIALIZED 
WITH ZERO AND 
BEQUEST NUHBEB 
(REOWOA) INITIALIZED 
WITH OWE. 



*****Q2********** 

* * 

* I* IT FOB * 

* EBBOh MESSAGE *X . 

* »218bl» * 

* * 
***************** 



**** 

* * 

* H3 * 

* * 
**♦* 



****A3********* 

* * 

* BLDENT * 

* * 
*************** 



* MODIFY LOAD * 

* AND TRANSFER * 
♦ADDS B3f LENGTH * 

* OF COHNON * 
****** ********** * 



*****£ J********* * 

* * 

* UPDATE NUMBER * 

* OF ENTRIES * 

* (ENTNON) * 

* BI ONE * 
***************** 



.* TOO *. 
. HANI PHASES . 
♦.FOB LINK .* 



****&<l*** ****** 

* * 

* UPDD1R • 

* . • 
*************** 



.* IS IT ♦ . HO 
.FIBS? CALL OP.*.. 
♦-SHAINDIB .* 



*****C<|** ******** 

* * 

* GEY FIBST * 

* DOUBLE HOBO * 
♦BOONDARI AFTER * 

* STOH TABLE * 
***************** 



*****D4********** 

* * 

* TAKE IT AS * 

* LOAD ADDRESS * 

* FOB SHAIMDIB * 

* AMD LOAD IT * 
***************** 



*****K4*** ****** 



.* PHASE 
. PHASE *** 
♦.DETECTED . 



STRPBLD 

*****p^** ******** 

♦ aow e ♦ 

♦ INFORMATION * 

♦ PROM CNTR DICT *X . 

♦ TO STOW TABLE ♦ 

♦ * 
***************** 



****G /****♦*♦♦♦ 

* RETURN * 

* CHAKT HB * 

* * 
*************** 



XBS .* OPTION *. 

*. LINK 

♦.SPECIPIED.* 



** ***<; 3********* * 

* * 

* IN IT FOB * 

* ERROR BBSSAGE ♦ 

* »2192I* ♦ 

* * 
***************** 



**** 

* * 

* H3 ♦ 

* * 
♦ **• 



****H3********* 

♦ ABTBRR ♦ 

♦ CHART AP ♦ 

♦ * 
*************** 



*****pi(*** ******* 

* * 

* STOBE • 

* IMPORTATION * 

* FOB MEAT CALL * 
« OF $MAINDIR « 
** *************** 



♦ SET DP * 

♦ REGISTER * 
♦INTERFACE HITH ♦ 

♦ SHAINDIR ♦ 
*• *************** 



*****H 4** ******** 

•SHAIMDIB *H5* 
*_ *-*_*-*_*- *_* _* 

* UPDATE CIL * 

* DIRECTORI * 

* * 
***************** 



♦ BETDBM • 

CODE IN BEG 
*. 15 ZERO .* 



*** * *4 5** ** * ** **: 



**************** 



*****B5********** 
♦EBB OB AJ* 

*-*-*-*-*-*-*-*-* 
♦PRINT SISLOG ♦ ♦ 

♦ SJ.Si.S1t ♦ 

• * 
***************** 



*** *c5********* 

♦ CAMCL ♦ 

• CHART AH ♦ 

* ♦ 
*************** 



♦ E5 
ME END ADDRESSES 
OF THE STOH TABLE 
AID OF THE LAST 
PHASE LOADED ABE 
COMPARED. THE HIGHEST 
ADDRESS IS TAKEN AS 
WORK AREA ADDRESS 



♦H5 

THIS PHASE IS 
DESCRIBED IN 
THE HAN UAL 
"LIBRARIAN LOGIC* 



• A5 * 

• * 
•*•* 



****K 1********* 

♦ RETURN ♦ 

♦ CHART HB ♦ 

♦ * 
*************** 



*****K4*** ******* 

♦ START NEH ♦ 

♦ STOW TABLE. * 

♦ REINITIALIZE ♦. 

♦ HEADER * 

♦ * 
•A*************** 



****K5********* 

♦ BE TUBE * 

♦ CHABT HB ♦ 

♦ * 
*************** 
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* * 

* RETURN ♦ 
*************** 



******* 



RETURN 

*****g|**: 

♦UPDDIR 

*_*_*_*_; 

* C1LL $HAINDIR 

* FOR LAST (OR 

* OIILI) TIlJE 
**************** 



.* OPTION *. 

LINK 

♦.SPECIFIED.* 



**** 

* * 

* B3 * 



****A 3*** ******* 



* LIBIT CHUCK * 

• ♦ BU ♦ 
***************** 



***•*£ 1*** ****** 

* BUILD 

* STATUS 

* TABLE 

* * E2 
**************** 



*****Fi**« ******* 

* * 

* CALCULATE * 

* ADDRESS OF * 

* HORKAREA FOR * 

* JL1BSTAT * F2 * 
***************** 



*****(; i********** 



***************** 



THE STATUS TABLK 
IS THE INTERFACE 
KITH $ LIB STAT. 



*P2 

THE END ADDRESSES 
OP THE STATUS TABLE 
AND OF THE LAST PHASE 
LOADED ARE COMPARED. 
THE HIGHEST END ADDRESS 
IS TAKEN AS UOUKAREA 
ADDRESS FOR SLIBSTAT. 



.* OPTION *. IBS 
LINK .*.... 

♦.SPECIFIED.* 



*****£ J********* * 

* * 

* INDICATE * 

* SUCCESS FULL * 

* LIHK EDIT * 

* * C4 * 
***************** 



****D3********* 

* RETURN TO * 

* JOB CONTROL * 

* * 
*************** 
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IJBINL - Initialization (Part 1 of 2). fiefer to Chart 01 



**** 

* * 

• *** 



****A1* ******** 

* * 

* IJBINL * 

* * 
*************** 



CALCULATE 

RELOCATION 

P ACTOR 



***• 

* * 

* B2 * 

* * 
**** 

X 

*****B^****** 



*****A4********** 

* * 

* CALCULATE * 

* START ADDRESS * 
♦OF FIRST PHASE * 

* * 
***************** 



* PARTITION ' 

FOR LNKEDT 

*. LARGE .' 

♦ENOUGH.* 



•****A5********** 

• * 

• HIT FOB • 
.X* BE ROB BESSAGB * 

• s 2190I a * 

• • 
***************** 



X 
***** 
•AF • 
• H4* 



***** i j |********** 

* * 

* RELOCATE * 

* ADDRESS * 

* CONSTANTS * 

* * 
***************** 



VALIDPN 

*****{) i********* 

* VALIDATE 

* PN-PARABRTERS 

* OF 

* ACTION CARL 
* 
**************** 



*****£ 1********** 

* INIT REG FOR * 

* PUB- AND LUB- * 

* TABLE AND * 

* COB REG VIA * 

* S1SIR * 
***************** 



.*SUPU? VISOR 
. SUrrORTS 
*. RPS 



**G |******* 
SET SWITCHES* 

* TO HRAMCH * 

AROUND 

* RPS-CODE * 
* * 

*********** 



*****<; j* ********* 

* * 

* IN IT FOR * 
.1* ERROR MESSAGE * 

* •21901* * 



***D Z* ********* 

* OPKN StSOJI 

AND SYSLNK 

* VIA OPEHR * 

***************** 



*****p^«* ****** 

* GET EXTENT 

* INFORMATION 

* AND DEVICE 

* CONSTANTS 
*************** 



PBILNK 

*****£J********** 

* GET EXTENT * 

* INFORBATION * 
...X* AMD DEVICE * 

* CONSTANTS * 

* * 
***************** 



*****fT3********** 

* • 
*INIT CONSTANTS * 

* FOR CONTROL * 

* INTERVAL SIZE * 

* * 
***************** 



** ***Q||* ********: 



************ 



***B<t***** ******* 

DISKRDHR AG 
*_*_*-«_*-*-*-*_* 

BEAD SIS TEH 
* DIRECTOR! * 

***************** 



*****P4********** 

* * 

* GET START * 

* ADDBESS OF * 

* RBLOC L1BRABV * 

* * 
***************** 



***** 
*JB * 
• A1* 



***************** 



***D5************ 

* HEAD * 

SrSTEB 
* DIBECTORT * 

***************** 



•****£5********** 

* * 
•GET ADDBESS OF * 

• SISTKH * 

• COBE 15 AGE * 

* * 
***************** 



.* SISTKH 


► . MO 


*. EELO EXISTS 


.* 


*. -* 


*. .* 




*. .* 


X 


• IES 


***** 




*JB * 




* A1* 




* • 




* 


- 


FBBEST 1 


*****e5********** 



*****ri 2** ******** 

* * 

* GET DEVICE * 

* CONSTANTS FOR * 

* CKD OR FbA * 

* • 
***************** 



*********** 



***J1****** ****** 



***************** 



*****K 1********** 

* * 
♦INIT CDISTABTS * 

* FOB * 

* LINE CONTROL * 

* * 
***************** 



***• 

* • 

* B2 * 

* • 
**** 



ALLOCATE * 

I/0-AREAS • 

AND INIT COIS * 

* 

**************** 



*****K2********** 

* GET START AND ♦ 

* END OF • 

* PARTITION * 

* VIA EXTRACT * 

* • 
***************** 



** ***J«**« ******* 
•GET ADDRESS OF • 

* LAST BLANK OF * 

* DIB ECTOR I AND *X . 

* BKBBBB SPACE * 

* • 
***************** 



** ***K4***** ***** 



• GET STABT * 

* ADDBESS OF * 

• HELOC LIBBART * 

* • 
***************** 



***H5************ 
FDISRIO AG 

*-*-*-*-•-•-*-*-* 

BEAD RELO 
♦ DESCRIPTOR • 
RECORD 
***************** 



*****J5********** 



***************** 



* BBSET CCH * 

* FOB RBADING * 

* HBBBXfi * 

* * 
***************** 


. IBS .* fALID *. 

*. L1BBAHI 

*. .* 

*. .* 
*. .* 


• 


* BO 


.FBBESX1 
***** 


.ABTBBR 
***** 


*JB * 
* A1* 

* * 


•AF • 

• HO 

* • 
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Chart JB. IJBINL - Initialization (Part 2 of 2). fiefer to Chart 01 



***** REPEKEMCES 

* * TO JBAl: 

* ** JAP»», JXFb 
* * JAR« 



.* PRIVATE " 
*. CORE IMAGE 
♦ .ASSIGSED .' 



*****& 3*** 



*************** 



*****A4*** ******* 

* * 

* I MIT TOR * 

* ERROfi MESSAGE * 

* »2195l» * 

* * 
***************** 



************** 



CORE 

IMAGE ON 

FBA 



>****!) 1***** 



**************** 



***** 3^* ********* 

* • 

* mir for * 

* EftROK flESSAGE *. 

* •218UI 1 * 

* * 
***************** 



*********** 



* C4 *.X. 

* * 
*•** X 

hLBUPEN .* 



***** 
*AP * 

* at* 



.* CORE ♦ 
.* IS AGE 

UrfiyWELK 
♦.ASSIGNED 



*****]? I*********: 

* 

* ChANGE CCB 

* FOR PRIVATE 

* CORE Id AGE 
* 
*************** 

**** " 

* * 

* 61 * .i . 



*****£^** ******* 

* IS IT PUK 

.X* SRROrt MESSAGE 

* 
**************** 



***** 

*ftF » 
* d4* 



CORE *. STKS 
IMAGE ON .* 

rub .* 



***F 2* ********** 


FDISKIO 


AG 


-*-*_*.*_*-*. 


-*-* 


RSAD DESCRIPTOR 


dLOCrt 


* 



*************** 



*****G2********* 
« 

* IN IT FOR 

* ERROR MESSAGE 

* »219S1» 



PSIRLd 

***P3************ 

PDISKIO AG 



***************** 



*****Q3********* 

* 

* IflIT POB 

* ERROR MESSAGE 

* • 21951 ■■ 



**£4*** ********* 



***************** 



*****p<t*** ******* 

* • 

* GET START * 

* ADDBBSS OP * 

* RELO LIB R AHI * 

* *> 
***************** 



***U 1************ 


viz *- 






A3 *- 


0ISKRDWR AG 


.* *. 






.* *. 


-*-*—*—*-*-*-*—* 


NO .* VALIXj 






"JO .* VALID * 


READ DESCRIPTOR 


...*. LIBRA!** 




** 


...*. LIBRARI 


RECORD * 


*. 

*. .* 


* 




*. .* 

*. .* 


************** 


X *. .* 






X *. .* 




***** * yes 






***** * y E *j 


*• 


*AP * 

* AH* 

* * 

* 






*AP * 

* HI* 
* * . 
* 


X 


X 






X 


***j |*****«**** 


*****J2* ****** 




»* 


*****j3******** 








* 


* 


mir POR * 


* I HIT FOR 




* 


* IB IP POR 


ERROR BBS SAGE * 


* ERROK MESSAGE 


* 


* ERROR MESSAGE 


•2195I» * 


* •219bl« 




* 


* •21951* 



************* 



***************** 



VALID 


* 


MO 


.* 


VALID * 


. NO 


.* VALID 


LlBRARf 




*.- .. 


*. 


LIBRARY 


.*. ... 


*. LIBRARY 




.* 




* 


.* 




*„ 


.* 








*. „* 




*. 


*. .* 




X 




*. .* 


X 


*. .* 


* TBS 




***** 
*AP * 




* IKS 


***** 
*AP * 


* BO 






* RH* 






* m* 




X 




* * 




X 


* * 


X 


**** 




*> 




**** 


* 


***** 


* * 








* * 




*AP * 


* A4 * 








* C4 * 




* H4* 


* * 








* * 




• * 


**** 








**** 




* 



• CALL fSBSISBB ' 

TO ALLOH if RITE 

* OK SISRBS * 

***************** 



*****jit**« ******* 

* * 

* IBIT MBADBB * 

* POH PRINTOUT * 

* OB SISLST * 

* * 
***************** 



*****gi| ********** 

* * 
♦SET SilTCB FOB * 

* RELOCATION * 

* LOADER * 

* * 
** *************** 



***** 
*JC * 
* A1* 
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NXTCARD 


A1 

* 


♦ . 


.* 
..X*. 


SISLNK 
OR PBA 



*****A2* ********* 

* SET SWITCH * 
*RO0TINE FREADLN* 

.X* ENTERED PROM * 

* IJBINL * 

* * 
***************** 



***a i****** ****** 

RDS0OO A A 

*_*_*-*_*_*_*-*_* 

READ INPUT 
* FROn SISLMK * 

***************** 



ACTfALID X 

*****£ 3********** 

•MOVE POOHD OPEB* 

* TO LAST ENTRI * 

* IM OPEB LIST. * 
♦SCAN OPER LIST • 
♦FOR EQOAL OPER * 
***************** 



.* EQUAL *. 
.♦ PO0SD IM 
*. LAST ENTRI 



***************** 



PLNRETI -♦. 






CI *. 






.* * 






.* ACTION 


* 


NO 


*. CARD 




*.. . . 


*. 


* 




*. .* 




. 


*. «♦ 




X 


* IES 




**** 

* * 

* D5 ♦ 

* * 
**** 


EMDOPER X 






*****Q 1********** 



**C3******* 
•SET SWITCH » 

* AMD RESET 
CONFLICTING 

* OPTIONS 

* * 

*********** 



* FIND OPERAND * 

* * 

* * 
***************** 



**** 
NEXTOPBR X 

*****D3********** 

* * 
♦POINT TO START * 

* ADDRESS OP * 

* NEXT OPERAND * 

* ♦ 
***************** 



FA LID 
OPERAND 
LENGTH 



*****E^» ********* 

* • 

* PKEPAfcL * 
A* EriROh MESSAGE * 

* "2112I* * 

* * 
***************** 



**C<******** 

* SET ACTS* * 

* TO INDICATE 

INVALID 

♦ OPERAND 

* * 
*********** 



♦SET SNITCHES 
* TO INDICATE 
* ERROR 
* * 

*********** 



*****C5********** 

* STOP SCANNING * 

* POR KOBE OPER * 

* PROCESS THE ' 

* VALID OPERS 

* ENCOUNTERED 



* D5 *.X. 

* * . 
•*** 

NOTACT X 

*****D5********** 

* PREPARE TO * 

* SCAN ACTSH * 

* INITIALIZE • 

* LOOPS AND * 

* POINTERS * 
***************** 

**** 1 

*JD * 

* B3 *.X. 

* * 
•**• 

RBTOUfi X 

*****g5********** 

* INCEENENT TO * 

* NEXT OPERAND * 

* AID CHECK • 

* CORRESPONDING * 

* BIT IN ACTSH * 
***************** 



**************** 



blaAk 

***IES 



CARD 
COLUHN 72 
.E1CEEDED .' 



*****f <!***** ***** 



INVALID 

OPERAND 

FODND 



*****H 2* ♦♦♦♦♦♦♦♦♦ 

* * 

* PfiiSPARK * 
.X* BRROK MESSAGE ♦ 

* • 21 131* * 

* * 
***************** 



***** i j3********** 

* * 

* PREPARE * 

* ERROR MESSAGE * 

* »2136I» * 

* • 
***************** 



* 


PREPARE 


* 


NO .* ACTSH ♦. 


*♦ 


ERROR MESSAGE 


* 


...*. BIT ON .* 


* 


•21351« 


* 


*. .* 


• 




* 


*. .» 


***************** 


X *. .* 




• 




***** * I£S 

*JD • 








* B3* 




X 




* * 




*•** 




* 




* * 




ACTRET 




♦ as ♦ 




X 




* • 




•****C5********** 




**** 




• * Jl» * 
**-•-*-*—*-*-*-•* 

• BAL TO * 
*• APPROPRIATE * 

• SUBROUTINE * 
***************** 



**K ->******* 

* SET ACTSH * 
TO INDICATE * 

INVALID ♦ 

OPERAND * 

* ♦ 
*********** 



J3 ♦. 


NOHAP 


* *. 


NOADTO 


SfSLST *. IES 


CANCEL 


ASSIGNED .«..X 


CLEAR 


.* 


NOR EL 


♦. .* 


RBL 


♦. .* X P1.P2, 


* NO *•*♦ 


* * 


* At * 


X * * 


**** **♦* 


* * 


* B5 * 


* * 


**** 





SOB ROUTINES THAT SET SNITCHES POR 

THE FOLLOHING OPERANDS: 

MAP 
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Chart JD. IJBINL - Action Processor (Fart 2 of 2) Refer to Chart 02 



***** i********* 

* PBCLEAR 

* 
*************** 



*****B 1********** 

* * 

* mn cc« * 

* MITH I/O-AREA * 

* CONTAINING * 

* * 
***************** 



*****C t******** 1 
* 

* IN IT CCW 

* illTH MAXIMAL 

* BLOCK COOHT 
* 
***************> 



REFERENCES ****? 
TO JDB3: I * 
JCF5, JCG§ * ** 



.* ALL *. MO 

*. OPERANDS .*... 

*. CHECKED .* 



• CLEAR LI IK AGE * 

• TABLE TO * 

• BIIAEI ZEROS * 

• * 
***************** 



REAL KG 
OP BLOCKS 
. < MAX . 



* IN IT CCW 
X* HITri hEAL 

* NO OP BLOCKS 

*************** 



***£/********* 

PDISKIO Ai 

*_*_*_* _*_*_*_ * 

WRITE BLOCKS 
CONTAINING 



**** 



**** 



*****[) 3********** 
♦SEX OP HEADING * 
♦LIME, SKIP PAGE * 

* PRINT HEADER. * 
*NO¥E ACTIO* MAP* 

* TO PRIST AREA * 
***************** 



*****£3********* * 

* MOVE OPERANDS * 
♦TO PRINT AREA. * 

* PREVENT HBAD * 

* PRINTING OR * 

* OVERPLOH * 
** **** ********** * 



*****D4********** 

* SET CCB FOR * 

* SXSLOG. BOVE * 
♦IN ROUTINE POR * 
•LISTING ERRORS * 

* * 
***************** 



.* BBBOB * 


. NO 


*. II ACTION 


.*.... 


*. CARD .* 




*. .* 




*. .* 


X 


* IBS 


***** 




*AH * 




* C3* 




* * 




* 




HDEXEC 


X 




*****D5********** 


* ERROR 


* 


*_*_*-*-*—*-*_*. 


-• 


* PBINT BBBOB 


* 


♦MESSAGE • 2 1351** 


* •21361' 


* 


***************** 



.X. 



****B5********* 

• B DIBIT * 

• CHART Aii * 

• * 
*************** 



***** PI*** ******* 

* * 

* ISO ecu * 

* TO START * 

* NEXT BRITING * 

* * 
***************** 



*****G 1******** 

* CALCULATE 

* NO OP BLOCKS 

* STILL TO BE 

* PROCESSED 
* 
*************** 



* IN IT ecu POR * 

* PROCESSING * 

* Mt,aB£h * 

* * 
***************** 



**** 

* * 

♦ B3 * 



ALIGN <t X 

*****P3********** 

* GET PARTITION * 

* START ADDRESS * 

* ALIGN ON D * 

* HOBD ♦ 

* BO0NDARJ * 
***************** 



*****G 3*** ******* 

* STORE A EPP * 

* END OF SUPER- * 
*VISOR ADDRESS, * 

* AND AS 1ST * 

* PHASE ORIGIN * 
***************** 
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Chart KA. IJBFIN - Process Input trcm FBA-flelocatable Library. Refer to Chart 03 



♦ A3 ♦ 
**** 



****& i********* 

* PREADRBL * 

* * 
*************** 



* dubmx 
pbase card 

*. CREATED .' 



CI *. 

.♦ *. 

.* AUTOLINK .♦. 

. 0?ER AFTER . 

ENTRY IN RBLO 

* . LI BB .* 

*. .* 



PRDUMPH X 

*****A2********** 

* RESE'i' POINTER * 

* INTO I/O-AREA * 

* FOR OLD * 

* LOG BLOCK * 

* * 
***************** 



***** 

*Aa * 

* B3* 



***************** 



HHOLE *. NO 
LOG BLOCK .*... 
. READ .* 



* NO 



END 
OP NESTED 
. INCLUDE . 



PHLBENA 

*****C2«* ******* 

* RESET POINTER 

* INTO I/O-AREA 
. ..X* POR OLD 

* LOG BLOCK 



***************** 



*****£ j********** 
♦UPDATE POIBTBR * 

* INTO I/O-AREA * 

* POR NEXT * 

* LOG BLOCK * 

* * 
***************** 



*****£ 3********** 

* * 

* UPDATE AND * 

* SAVE MEd * 

* DISK ADDRESS * 

* * 
***************** 



PHftOVE 

*****£«*** ******* 

* «OFE PABT OF ♦ 

* LOG BLOCK * 
...X* ALREADY READ * 

* IN PRONT OP * 

* I/O-ABEA * 
***************** 



** ***£<i********** 
♦UPDATE POIITBB ♦ 

♦ INTO I/O-AREA ♦ 

* FOB NEXT * 

♦ LOG BLOCK ♦ 

* * 
***************** 



** ***04********** 



*****£; 1********** 

* * 
♦UPDATK POINTS ♦ 

* INTO I/O-AREA ♦ 
*FOR HIST RECORD* 

* * 
***************** 



*****p |*«******** 



Gl ♦ . 

.♦ ♦. 

.♦ ALL *. 

H *COR D S 

*.1N BLOCK .* 

♦.FROC .♦ 

♦. .* 

♦YES 



*****{! i********** 
♦UPDATE POINTER * 

♦ INTO I/O-AREA * 

* POR NEXT * 

♦ LOG BLOCK ♦ 

* * 
***************** 



*****j 1********** 

♦ * 

♦ INITIATE FOB ♦ 

♦ NEXT RECOHDS * 

♦ IN LOG BLOCK * 

♦ * 
***************** 



*****£ 2^ ********* 



**************** 



*****P2** ******** 

♦ GET POINTER * 

♦ INTO I/O-AREA ♦ 

♦ POR NEXT ♦ 

♦ LOU BLOCK ♦ 

♦ * 
***************** 



***** ti ^** ****** 

♦ INITIATE 10RB 

♦ POR PRIVATE 

♦ OR SI STEM 

♦ HELOC LIBflAHY 
* 
*************** 



♦ UPDATE 


• 


♦ DISK ADDRESS 


* 


* 


• 


• 


• 


***************** 


** ** 




♦DH ♦ 




♦ K2 ♦.X. 




♦ ♦ 




**** x 




FKBDOIO .♦. 




84 ♦. 




.♦ BEAD *. 




.♦ BEYOND ♦ 


. IES . 


..X+END OP LIBRARY 


.♦- .. ... 



* GET BOBBER * 
X* OF BLOCKS * 

* TO BE RBAD ♦ 

* * 
***************** 



***£ 5 ************ 
P DISK 10 AG 

»-♦ -*- * - » - * - ♦ -*-♦ 
READ NEXT 
PHYS BLOCKS ♦ 



•**pil*** ********* 
FD1SK10 

BEAD NEXT 
♦ PBIS BLOCKS * 

***************** 



*****F5********** 



***************** 



*****ij<4*** ******* 



***************** 



♦ INXT COUiTBRS ♦ 
X* FOB NEXT * 

♦ LOG BLOCKS • 

♦ * 
***************** 



*** **£5 ********** 

* * 

* BESKT SIITCB ♦ 

* FOB FIRST I/O ♦ 

* FOB A BEHBfcR * 

* * 
***************** 



•****Jlt*** ******* 
♦UPDATE POINTER ♦ 

♦ INTO I/O-AREA ♦ 

♦ FOB WRIT * 


J5 ♦. 
.* ♦. 

NO .♦ END 


♦ LOG BI 
•*******< 

**** 

* * 


.OCAS ♦ 

♦ 
******** 

X.. .......... I 


* 
* 

• 
* 


♦. 

♦. .♦ 
♦. .♦ 

♦ IBS 


♦ K« *.l 

♦ * 
**** 

; 

****K*M 

♦ RDE1 

♦ CBAB1 

* 


******* 
IEC ♦ 

r Ad » 

* 


X 
t***K5******* 

BESET S MIT Cii 

FOB E1D STMT 

PROCESSED 



*************** 



***************** 



* A3 * 

* * 
**** 
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Chart KB. IJEFIN - Process Input trom BEA-SISLNK Befer to Chart 03 



• PBBADLB • 



J:. 



•*«' 



■II! *. IBS 

■ ortiMj.*.... 



• iito i/o-iii • 






J. 




CI •. 




.* *. 




* *5»S» * : 


IBS 

• .... 


• 10 


-J- 

• 15 • 



**+*«D !•#*••••••• 

:»o^eB B foi : 



i 

***C3**' 
PDISXIO A6 

■BAD MBIT 

COBTBOL * 
IBTBBfAL 



*****D3********* 

coKHi'.r 

BLOCKS/C.I. 



****«B5«*» 



• BBSBX SBXTCM • 

• OP OBBAlSD • 

• SO MOD STATE * 



•***«C5******+**« 

• * 

• OPDATB BBB * 

• DISC ADDIBSS * 

• IB CCB * 



i 
.*. 

# B5 *.^ 
*. CI. .* 



.1. 

B1 *. 



*. BBCOBDS IB .*... 
•BLOCK f IOC.* 



***i»*i«r *•{*•«*•»*< 



DISK IBM BBS 



•***«8 )•*+*••• 









•***12********* 

• t DBXIC • 

.1* CBABT ltl • 

• ■ * 



»+••*« 2********** 



• BESBT SWITCH • 



***************** 



••*««H2+********* 
• BLOCKS/C.I. * 






flp ir{SI»j2»» »•»*•»♦ 



a«T1 



j at.. 



*I3********** 



SAf 



* DISK ADDBSSS 

• Of BBXT 



•OPDATB POIBTBBS 



W 



X 
.♦. 

63 *. 



.* BBTSBBD ■ •• II 
♦ . PBOB DBXBL •♦. 



♦•**6«**«****** 



.!• BBSBT Si ITCH 






• • 

•OPDATB POIBTBBS* 

• BOB C0I1IIT * 

• LOO BUCK * 

• * 



•*+**r5«**«*«*«** 



DISK ADDBBSS * 



.3332-. -j?* 

IBID COBTBOL- 
• IBTBBfAL * 



•****fl5«********i 
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APPENDIX A': LABEL LIST 



This label list has two parts: One lists the entry labels and summarizes the function ot 
the CSECTs the labels lead to; the other one lists all the labels occurring in the 
flowcharts. 



R<*rt J[: Entrv. Labels 
Label CSECT 



Chart 



Label 



CSECT 



Chart 



ABORT GE 

Beginning of non-recoverable error 
handling subroutine. 

ABTERR AF 

Gives control to IJBRLD so that 
abort error processing can con- 
tinue. Entered when non-reccver- 
able errors are tound. 

ACSLTH CG 

Some compilers supply control 
section length in the END card. 
This routine processes the control 
section length tor this special 
case. 

ADMDSW IJBMAP PA 

Program switch to indicate tirst 
time through the MAP processor. 

ALNKPR IJBLNK AG 

Starting address ot the autolink 
processor, which is entered when- 
ever a phase has finished proces- 
sing and autolink has been 
requested . 

CDSIZE IJBLNK AF 

Starting label of a subroutine to 
check for control dictionary 
overflow . 

CBKNPH - IJBESD EA 

Beginning of the ESD processor 
phase, IJBESD (see "Appendix E" 
for a detailed description ot this 
phase) . 

CINOBL IJBCTL EE 

Number of core image blocks 
required by this phase is equal to 
number of bytes loaded, divided by 
block size. Add one block tor any 
remainder . 

CNCALK IJBESD EC 

The instructions starting at this 
label cancel autolink. The NOAUTCL 
switch in CSWITCH (current CIE 
entry) is set to indicate that no 
autolink should be attempted on 
this ER, either because autolink 



has already been tried or because 
autolink should not be performed. 

CNVHEX IJBLNK AC 

Label at the beginning of a sub- 
routine that converts hexadecimal 
to binary notation. 

COMCHK IJBMAP FA 

Beginning of common (CM) processing 
in the MAP processor. The cumula- 
tive length of discretely named 
commons is calculated at this point 
in the program. 

DECDSP INBSCN DD 

Beginning of decimal displacement 
processing for the operand of a 
phase card. 

DEBDAD IJBLNK AK 

Beginning of subroutine that builds 
core image blocks. Basically, this 
subroutine: 

1. Ensures that the text is within 
the limits of the phase; 

2. Finds the core image block the 
text belongs in; 

3. fieads the core image block 
required by the text into the 
I/O area. 

LEfiESW INBLNK AK 

Program switch that forces con- 
tinued processing when a zero 
length control section is found 
by the ESD processor (Chart BE) . 

DMPHSW IJBLNK AH 

Program switch initialized as an 
MVC instruction. Modified to an 
effective NOP by the ESD processor 
(Chart BA) when a dummy phase card 
is to be built. Ey the NOP modifi- 
cation, the disk address of the 
ESD card not yet processed is re- 
tained in location COMNRF for use 
after the phase processing is 
finished. (Dummy phase cards are 
treated as actual phase cards.) 

LSPETN IJBSCN DC 

Beginning of displacement operand 
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Label 



CSECT 



Chart 



Label 



CSECT 



Chart 



processing. 

EIrBCH IJBESD EE 

Beginning of CM (common) proces- 
sing. Whenever both the ESC item in ESERET 
the card image and the control dic- 
tionary entry are commons with 
matching labels, this routine puts 
the common with the longest length 
in the control dictionary. If com- 
mons with different labels are 
found, this routine posts the new 
common in the control dictionary. ESLECD 
The map processor of the linkage 
editor calculates a total length 
of commons, which adjusts the 
phase origin. 

ENDRTN IJBOTH CF 

Tests SBMDST to determine it the 

name list should be cleared. (See EXLCAD 
SBMDST in label list.) 

ENDSBM IJBOTH CG 

Program switch providing an exit 
from the END card processor. The 
switch is assembled in the NOP 
state, initialized to branch by 
the END card processor, and reset 
to NOP by the END card processor 
if the module being processed has 
been autolinked. 

ENDSCD IJBOTH CG 

Searches control dictionary for 
unassigned LD/LRs, and ensures that FCHBLD 
the control dictionary number for 
such items is negative. 



ERRNML is set to NOP. This allows 
the name list to be cleared before 
card error processing. 

IJBESD EA 

Common entry point when the proces- 
sing of an ESD item is finished. 
Instructions starting at this label 
determine if any more ESD items are 
in the variable field of the card 
image. 

IJBESD ED 

Beginning at this label, the ESD 
processor searches the control 
dictionary for a label that cor- 
responds to the label of the ESD 
item in the current control dictio- 
nary entry. 

IJBLNK AH 

1. Entry point from the autolink 
routine (Chart AJ) when the 
control card processing phase is 
to be loaded. 

2. Entry point from the ESD proces- 
sor when a dummy phase card has 
been built and a control card 
processing phase is to be 
loaded. 

3. Entry point from the initialize 
IJBOTH routine when the ESD 
processing phase is to be 
loaded. 

IJBMAP FD 

Entry point when N0MAP option is 
found . 



ENTALK IJBSCN DD INCLOP 

Provides an exit from the &LNKEDT4 
phase of the linkage editor when a 
blank ENTRY card is found. 

ENTCRD IJBSCN DB 

Beginning of the entry card pro- 
cessor. ISDISP 

Note: At this time, a blank operand 

field would be detected in the skip 

blanks subroutine. (See SKIPE and ISR00T 

ENTALK in the label list.) 

ERRACT IJBINL JC 

Common error exit from the action LABST 
processor. Error messages are ini- 
tialized in the action processor, 
but are actually issued during the 
execution of another initialization 
routine (see Chart AC) . 

ERRNML IJBSCN LA LTCENO 

Program switch initialized to 
branch. However, it an error occurs 
on an include card and the include 
card has created a name list, 



IJBSCN EG 

Beginning of the relocatable direc- 
tory scan for autolink, include, 
and terminal processing. The scan 
looks for a module with a name that 
matches the card image name field. 

IJBCTL EC 

Processing when the phase card 
operand is a displacement. 

IJBCTL EC 

Processing when the phase card 
operand is ROOT. 

IJBSCN DB 

Euilds the name list of control 
sections from the operand field 
ot an INCLUDE card. These control 
sections subsequently build a phase 
(see NMELST in the label list). 



IJBLNK 



AB 



Entry point to the control dictio- 
nary search subroutine when a test 
for control dictionary number as- 
signment is required by the calling 
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Label 



CSECT 



Chart 



Label 



CSECT 



Chart 



LTESID 



MAPCST 



MAPHAS 



MAPLDR 



NMELST 



NMSBSW 



NOELOK 



NOEYTE 



CRPHDA 



CRPHBG 



routine. The control dictionary 
number was available, but because 
its status was undetermined, entry 
is made to this subroutine. 

IJBLNK AE 

Beginning of the subroutine that 
finds control dictionary number, 
control dictionary address, or re- 
location factor, using the ESIE 
number from the language translator 
and the linkage table constructed 
by the linkage editor. LTESID is 
the entry point when the ESIE 
number is supplied. 

IJ,BMAP FB 

Sets up for a scan of the control 
dictionary, searching for control 
sections that belong to the phase 
previously identified in this 
routine. 

IJBMAP FE 

Beginning of a control dictionary 
scan that searches tor phase 
entries. 

IJBMAP FC 

Sets up for scan of control dictio- 
nary that searches for LD/Lfis. 



A list of control sections speci- 
fied by the name list operand of an 
INCLUDE card. The list is blank 
except when a named submodule is 
still being processed. 



Supplies the information in byte <4 
of location PERIDA during INCLUDE 
card processing in the IJBSCN phase. 
Resets to zero during the execution 
of the control card scan in the 
IJBSCN phase. Bit 6 is set to one 
during initial INCLUDE card pro- 
cessing, and Bit 1 is set during 
phase post processing (autclink 
mode) . 



Label in control dictionary entry. 



Label in control dictionary entry, 



Label in control dictionary entry. 



Label in control dictionary entry. 



PERIDA 



The location labeled 
36-byte input control 
the linkage editor pr 

• obtain the address 
card image to be pr 
the END card; 

• determine the point 
processing is finis 
object module; 

• maintain control ov 
ot include statemen 
ning as last-in, fi 
to establish proces 
rities. 



PERIDA is a 

area used by 
ogram to: 
of the next 
ocessed after 

at which 
hed for an 

er the nesting 
ts by functio- 
rst-out list 
sing prio- 



Location PERIDA is used in conjunc- 
tion with either location ESD000 or 
ESDNOO (see label list) depending 
on the input device being used at 
this time. ESD000 or ESDNOO is 
loaded with the disk address of the 
first ESD card image of the object 
module. PERIDA is loaded with the 
disk address of the card image that 
follows the control card image. The 
linkage editor program compares the 
disk address in location PERIDA 
with the address in either ESD000 
or ESDNOO. Input control is based 
on the result of the comparison 
made at END card time. Possible 
results and corresponding input 
control actions are: 

• The address in PERIDA is equal 
to or higher than the address in 
ESD000. Process the card image 
sequentially following the END 
card. 

• The address in PERIDA is lower 
than the address in ESD000. Get 
the address of next card image 
to be processed from PERIDA. 

• The address in PERIDA is lower 
than the address in ESDNOO. Get 
the address of the next card 
image to be processed from 
PERIDA. 

• The address in PERIDA is equal 
to or higher than the address in 
ESDNOO. Effectively shift PERIDA 
left six bytes. Get the address 
of the next card image to be pro- 
cessed from the updated PERIDA. 



* Listing only 



Befor 
the a 
at EN 
tor p 
is av 
RECFO 
PERIL 
prior 
last- 
five 
depth 



e the 
ppropr 
D card 
rogram 
ailabl 
in t 
A esta 
ity by 
in, f i 
levels 
) . The 



compar 

iate a 

time, 

ensur 

e tor 

his li 

blishe 

f unct 

rst-ou 

of in 

list 



ison 
ctio 
the 
es t 
PERI 
st) . 

s P r 
ioni 
t li 
clud 
is b 



is made and 
ns are taken 

linkage edi- 
hat a value 
EA (see 

Location 
ocessing 
ng as a 
st for up to 
e (nest 
uilt during 
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the execution of the include card 
processor (Chart DB) . Figure 10 
illustrates the physical structure 
of PEBIDA and Figure 11 illustrates 
how this location functions as a 
last-in, first-out list. 



Note: If all five levels of in- 
clude are used, the last 6-byte 
segment of PERIDA contains the 
address of the card image following 
the first INCLUDE statement. 



Byte 



Byte 
1 


Byte 
2 


Byte 
3 


Byte 
4 




ByteS 
Expended 




Byte 
30 


Byte 
31 


Byte 
32 


Byte 
33 


Byte 
34 


Byte 
36 












6 


/ 




°l°)°l if 














C 


C 


H 


H 


R 


'i 


[9 





o / , 

r 1 t 


1 ri _/£ 


C 


C 


H 


H 


R 


Sw 
Byte 


♦ 




< 


i 


. t > 


I ? 

| Disk Addrtss of 

| Next Card to be 












1 - SYSLNK 
0= Not SYSLNK 


I Processed 












, 


i Submodular Switch 
















- - 


1 - ON 
0= OFF 










1= SYSRLB 
0= Not SYSRLB 

Request via Autolink Switch 

1 - ON 
- OFF 



























Note: Input from system relocatable library if byte 5 bits 5 and 7 are both 0. 

Figure 10. PERIDA Layout 



tndudiA 




A Beys Include 8 



B Seys Include C 





LIFO LIST 




tin 


First 

8 Byte Segment 

of PERIDA 


C 
First Out 








B 
Second In 


Second 

6 Byte Segment 

of PERIDA 


B 
Second Out 








A 
First In 


Third 

6 Byte Segment 

of PERIDA 


A 
Last Out 



Figure 11. Last-In f First-Cut List (LIFO) 
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Label CSECT Chart Label CSECT Chart 

PHAEMD IJBMAP IB pass 1, from SYS001. 
Adjusts load address of the phase 

by the cumulative length cf the ELDSW1 IJBRLD GA 

discretely named commons. Program switch set to branch within 

this phase, whenever pointer pro- 

PHCRE IJBSCN EC cessing is finished. 
Beginning of the phase processcr in 

the IJBSCN phase. This part of the ELESW2 IJBRLE GE 

phase processor performs two basic Program switch initialized to 

functions: branch, calculates load address 

1. Determines which optional ope- (assembled origin of control die- 
rand has been used. tionary entry plus relocation 

2. Validity checks the phase card factor) when set to NOP in this 
Image. phase. 

PHSTOR IJBMAP EA PLDSW3 IJBELD GC 

Reinitializes the phase information Initialized to NOP. Set to branch 

in location PHEADR (see label list) . within this phase whenever R and 

P pointers indicate wrong phase. 

PVLESW IJBLNK AH 

Switch set to NOP by END and BLDSW4 IJBELD GC 

INCLUEE card processors it input is Program switch initialized to NOP, 

from SYSRLB. indicating the ADCON is to be 

extracted from the core image block. 

QUAPRO IJBSCN ED If the switch is set to branch, the 

Beginning of qualifier processing ADCCN is replaced in the core image 

for the operand of a phase card. block. 

REALSW IJBLNK AH RLSW1 IJBOTH CD 

Switch set to branch if Autolink is Program switch set and reset within 

in operation. IJBOTH phase. Setting (NOP or 

branch) determines if the R and P 

RECEOO IJBLNK AA pointers are to be processed. 

Program switch set to branch and Several ELD items can habe the 

reset to NOP by either the ESD pro- same R and P pointers. Only the 

cessor (Chart BA) or the END card first set of identical E and P 

processor (Chart CF) . The ESD pre- pointers are processed, 
cessor ensures that the correct 

disk address is in location PEEIDA ELWEIT IJBOTH CE 

(see label list) by branching to the Program switch set to NOP in the 

read SYSLNK subroutine at location pass 1 RLD processor when the RLD 

INS000 after the CCW has been set to is to be processed in the pass 2 

NOP. The disk address of the next RLD processor. If the switch is set 

card image is located by updating to branch (initial condition) , the 

the disk until a record is found. RLD is ignored. 
Register 2 supplies the correct disk 

address for location PERIDA. The END R00TN0 * 

card processor used the same tech- This location contains a zero when 

nigue to locate the disk: address of the first phase is not specified 

the next card to be processed (put root, and a one when it is a root, 

into location NDS000) . RECEOO is set The value in ROOTNO is either added 

to branch to prevent updating beyond to or subtracted from the control 

the proper disk address. dictionary number. 

• Subtracted - when the control 

RELBSW IJBLNK AH dictionary number is used to 

Program switch that tests tor input obtain a control dictionary 

from the relocatable library. Sets entry address, 
(branch) in the include processor 

and resets (NOP) in the END card (C/D NO - ROOTNO) X16 = 

processor. DISPLACEMENT 

CDENT1 + DISPLACEMENT — 

RLEPRC IJBOTH CE ENTRY ADDRESS 
Beginning of RLD pass 1 processing. 

ELDRAG IJBRLD GA 

Reads RLD information, supplied by * Listing only 
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Label 



CSECT 



Chart 



Label 



CSECT 



Chart 



• Added - when a root phase has 
been specified, a one is added 
tor each control dictionary 
entry. 



SRCHCD IJBLNK AC 

Eeginning of a subroutine that 
finds the last duplicate label in 
the control dictionary. 



SBMDST 



A program switch that indicates 
when NMELST should be cleared 
(Bit 7) or an END card has been 
read (Bit 3) . Bit 7 is turned en 
when a named submodule (INCLUDE 
NAME, (CSECT)) is found. At the 
same time, a bit switch in location 
PERIDA (see label list) is turned 
on. The apparent duplication of 
switches is necessary because the 
first 5-byte segment of PERIDA is 
a variable, which depends on nested 
levels of INCLUDES. At END card 
time, a test is made of the bit 
switch in location PERIDA. 

If bit 6 of byte 4 in PERIDA is on, 
turn off bit 7 in SEMEST. The 
switch in PERIDA can then be tested. 

If bit 6 of byte 4 in PERIDA is 
off, do not change the status of 
SBMDST. The bit switch has already 
been moved to some other 5-byte 
segment of PERIDA. The linkage 
editor program can then test SEMEST 
to determine if the END card being 
processed is part of the module 
named in the INCLUDE statement 
(bit 7 in SBMDST ott) . The name 
list (NMELST) is cleared at END 
card time, except when a named 
submodule still being processed. 



SRPCOD 



TRFRAD 



TSTCNT 



IJBLNK AC 

Tests for end of control dictio- 
nary. Entry point for the label- 
search subroutine. 



Label in control dictionary entry. 

IJBRLD GE 

Sets up MAP informaticn (number of 
AECCNS outside the phase limits) in 
a test register. If the register is 
zeroed, there is no MAP informaticn. 
It the content is nonzero, MAP in- 
formation is to be printed. 



UPESKAD 



IJBLNK 



AE 



Updates the disk address to the 
first record on the next track. 

VEBLOP IJBRLD GF 

Beginning of a loop that reads and 
verities all core image blocks 
written by linkage editor. All 
verification occurs at this point, 
rather than after each individual 
write operation. 

XTPHNO IJBLNK AF 

Beginning of a subroutine that 
extracts the phase number from the 
control dictionary. 
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fart 2: All Labels 

As there is only one phase, $LNKEDT, in this program, "CSECT" here indicates the GSECT 
of the general phase. 



Isabel 


CSECT 


Location 


Label 


CSECT 


Location 


ABORT 


IJBRLD 


GEB5 


DESITE 


IJBLNK 


AKE3 


ABORT10 


IJBRLC 


GEH5 


DERITE1 


IJBLNK 


AKF3 


ABTERR 


IJELNK 


AFH4 


DEFLOP 


IJBLNK 


AKJ3 


ACSLTH 


IJBOTH 


CGB4 


EERSW1 


IJBLNK 


AKK1 


ACTRET 


IJEINL 


JEE3 


DISKIO 


IJBLNK 


AGE1 


ACTVALID 


IJEINL 


JCA3 


EISKRDWR 


IJBLNK 


AGD1 


ADMDSW 


IJEMAP 


FAB3 


DMPHSW 


IJBLNK 


AHD3 


AD1DSK 


IJELNK 


AEC3 


DFLAB 


IJBMAP 


FDR1 


ALIGNDW 


IJECTL 


ECD4 


DSPRTN 


IJBSCN 


DCHfl 


ALIGN4 


IJBINL 


JDF3 








ALKERR 


IJESCN 


DGA4 


EISCSL 


IJBOTH 


CGF4 


ALKFND 


IJESCN 


DHA1 


EISDPC 


IJBESD 


BCB3 


ALNKOD 


IJELNK 


AGF4 


ELBCER 


IJBESD 


BDD3 


ALNKOF 


IJELNK 


AHB1 


ELBCM 


IJBESD 


BDC2 


ALNKPR 


IJELNK 


AGB4 


ELBDSD 


IJBESD 


BDF5 


ALNKSC 


IJBLNK 


AGE4 


ELBELR 


IJBESD 


BCH5 


ALNKVL 


IJELNK 


AGJ5 


ELBER 


IJBESD 


BCB4 








ELBGSD 


IJBESD 


BDJ5 


BLDENT 


IJECAT 


HAB3 


ELBINT 


IJBESD 


BFE1 


BUILD 


IJBCAT 


HAG1 


ELBISITW 


IJBESD 


BCE5 








ELBLD 


IJBESD 


BEAI 


CALCWA 


IJEINL 


JAJ2 


ELBLDR 


IJBESD 


EEB3 


CALMAIN 


IJECAT 


HAG4 


ELBNAS 


IJBESD 


BEF4 


CANCL 


IJBLNK 


AHB5 


ELBNCD 


IJBESD 


BFEfl 


CANCLE 


IJEELD 


GEJ5 


ELBNLR 


IJBESD 


BED2 


CDSIZE 


IJELNK 


AFB4 


ElBPC 


IJBESD 


BDE1 


CHABKCT 


IJEFIN 


KAD5 


ElBSD 


IJBESD 


BDC4 


CHEKQU 


IJECTL 


EBB3 


BNCRLT 


IJBOTH 


CGHI 


CHKNPH 


IJEESE 


BAB1 


ENDERR 


IJBLNK 


AJH4 


CHKRP 


IJESCN 


DBE3 


ENDOPEH 


IJBINL 


JCDI 


CHKRPN 


IJBSCN 


BDD5 


EUDPRC 


IJBOTH 


CFAfl 


CHKSYM 


IJBLNK 


AHJ3 


ENDRTN 


IJBOTH 


CFH2 


CHQUALIF 


IJECTL 


ECD2 


EMDSBM 


IJBOTH 


CGH4 


CIMBLK 


IJECTL 


EEH4 


ENDS CD 


IJBOTH 


CGBI 


CINOBL 


IJECTL 


EEfifl 


ENDXFP 


IJBOTH 


CFA*I 


CLRCMN 


IJEMAP 


FAE2 


BNLD 


IJBESD 


EBE* 


CLREXT 


IJEOTH 


CHE3 


SNOT00 


IJBOTH 


CFA2 


CHDEL 


IJESCN 


DEJ4 


BNOXFR 


IJBOTH 


CFC5 


CHCALK 


IJEESL 


BCA1 


EHTALK 


IJBSCN 


DDHH 


CNTSW 


IJBQTH 


CDF1 


ENTCRD 


IJBSCN 


DBB4 


CNVAHX 


IJELNK 


AC J 3 


ENONAS 


IJBOTH 


CGDI1 


CNVBIN 


IJEMAP 


FEB a 


EPHSCD 


IJBESD 


BFK4 


CNVHEX 


IJBLNK 


ACB4 


EPHSCN 


IJBESD 


BF#3 


CNVHSW 


IJELNK 


ACG3 


EPHULD 


IJBESD 


BFD4 


GIIVLOP 


IJEMAP 


FED4 


ERRACT 


IJBINL 


JCB5 


CNVSHF 


IJELNK 


ACH3 


ERRNML 


IJBSCN 


DAF2 


COMCHK 


IJEMAP 


FAG1 


ERROR 


IJBLNK 


AJE3 


CONTSCN 


IJECAT 


HAH1 


ERROR10 


IJBLNK 


AJJ2 


CQUAL 


IJECTL 


ECA2 


ERROR20 


IJBLNK 


AJJ3 


CRDEND 


IJESCN 


DDB4 


ERROR40 


IJBESD 


BBB5 


CTLSKP 


IJBLNK 


ABG2 


ERROR40 


IJBLNK 


AJF4 


CTNOBL2 


IJECTL 


EEC2 


ERROR40 


IJBLNK 


AJK4 








ERROR50 


IJBLNK 


AJF5 


DECDSP 


IJESCN 


DDA1 


ERR000 


IJBOTH 


CAC5 


DELEXT 


IJBSCN 


DCH4 


ERR002 


IJBLNK 


ACC4 


DELIMENT 


IJEINL 


JCH1 


ERR012 


IJBSCN 


DEF4 


DERCAL 


IJBLNK 


AKH3 


EBR013 


IJBSCN 


BEE5 


DERDAD 


IJELNK 


AKB1 


ERR013A 


IJBOTH 


CCH5 


DERDOK 


IJELNK 


AKD1 


EBR014 


IJBSCN 


DBF2 


DERDSW 


IJBLNK 


AKH1 


BER022 


IJBCTL 


EBD3 








ERR023 


IJBCTL 


BDD2 
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Label 


C3ECT 


Location 


Label 


CSBCT 


Location 


ERR024AA 


IJBCTL 


EBB4 


FNDDEL 


IJBSCN 


DDA4 


ERR032 


IJfiSCB 


DGB4 


FNDDBLIH 


IJBINL 


JCF1 


ERR040 


XJBISC 


BDH1 


FNDENT 


IJBLNK 


AHH2 


ERR04(1 


IJEESE 


BFA3 


FOND EL 


IJBSCN 


EEE4 


ERR043 


IJBESD 


BDB5 


FRDLNCI 


IJBFIN 


KBF1 


ERR043 


IJBESE 


BEG5 


FBDLNF 


IJBFIN 


KBB3 


ERR043 


IJBESD 


BEJ2 


FBDLNOT 


IJBFIN 


KBJ2 


ERBoaa 


IJELNK 


AFD4 


FRDNEST 


IJBFIN 


KAE2 


EBB045 


IJBESD 


BCD2 


FRDUMPH 


IJBFIN 


KAA2 


ERR046 


IJEESE 


BDF3 


FFLBENA 


IJBFIN 


KAC2 


ERR050 


IJBLNK 


AKE1 


FRLBRET 


IJBLNK 


AHB3 


ERR051 


IJBOTH 


CCE4 


FRHDOIO 


IJBFIN 


KAE4 


ERR055 


I J BOTH 


CDH3 


FRMINID 


IJBFIN 


KAG5 


ERR058 


IJBOTH 


CGD4 


FBHOVE 


IJBFIN 


KAB4 


ERROJ70 


IJBLNK 


ABH2 


FBUPAD 


IJBFIN 


KAA3 


ERR081 


IJEGTL 


EC J 3 








ERR085 


IJBHAP 


FDF5 


GETCENT 


IJBRLD 


GAG4 


BBR091 


IJBOTH 


CHD2 


GETVRB 


IJBSCN 


DAGb 


BIRO 9 3 


IJBLNK 


AKE5 


GHERKIN 


IJBINL 


JBH4 


BHR097 


IJELNK 


AGH2 


GOBLD 


IJBMAP 


FDJ4 


BBR44 


IJBLNK 


ABC3 








BBB44A 


IJELNK 


ABB2 


HCWMANY 


IJBCTL 


EEE4 


BSCNCD 


IJBESD 


BFD3 








BSD N XT 


IJEESE 


BAH2 


IJBCAT 


IJBCAT 


HAB1 


BSDRET 


IJBESD 


BAB3 


IJBMAP 


IJBMAP 


FAC1 


BSJDSBM 


IJEESE 


BCH1 


IJBOTH 


IJBOTH 


CAB1 


BSD 1ST 


IJBESD 


BAA2 


IJBRLD 


IJBRLD 


GAB1 


BSIXTA 


IJBHAP 


FAG3 


IJBSCN 


IJBSCN 


DAB1 


BStBCD 


IJBESD 


BDB1 


INCCRD 


IJBSCN 


DBA1 


BUfDCN 


IJEESE 


BFG2 


INCCRD1 


IJBSCN 


DBE1 


BWDOK 


IJBESD 


BFC2 


INCERR 


IJBSCN 


DGC4 


BWDSW 


IJEESE 


BFD2 


INCFND 


IJBSCN 


DHEtl 


BOTDXT 


IJBESD 


BFC5 


INCGET 


IJBSCN 


DGC1 


BUFTRY 


IJBESD 


BFG1 


INCGET1 


IJBSCN 


DGC2 


BXECWR 


IJEHAP 


FDJ5 


INCGET2 


IJBSCN 


EGF1 


BXLOAD 


IJBLNK 


AHB4 


INCLOP 


IJBSCN 


DGK1 


BITNLP 


IJBHAP 


FEB2 


INCLPR 


IJBSCN 


DGE1 


Bit N PR 


IJBHAP 


FDG2 


INCRED 


IJBSCN 


DGD5 


BITNSW 


IJEHAP 


FDD2 


INCREE 


IJBSCN 


EGH1 


BXTRCT 


IJBSCN 


DEB3 


INDJDR 


IJBLNK 


AHH5 


BISSCN 


IJEHAP 


FDC1 


INS00O 


IJBLNK 


AAF1 








INTPT2 


IJBINL 


JAB1 


FBICLB 


IJEINL 


JBF2 


INTS01 


IJBINL 


JAC2 


FBILNK 


IJBINL 


JAE3 


ISDISP 


IJBCTL 


ECA3 


FBINSEC 


IJECTH 


DJJ2 


ISROOT 


IJBCTL 


ECE3 


FBIRES 


IJBINL 


JAC5 








FBI R LB 


IJEINL 


JBF3 


LABST 


IJBSCN 


DBE2 


FBRDIOC 


IJBOTH 


DJB3 


LDRGO 


IJBMAP 


FCB3 


FBRDIREL 


I J EOT H 


DJB2 


LERSCN 


IJBMAP 


FCG2 


FBBDIRF 


IJBOTH 


DJC1 


LDRTSD 


IJBMAP 


FCC3 


FBRDIRLB 


IJEOTH 


DJB1 


LKQOO 


IJBSCN 


ECE4 


FBRDNXT 


IJBOTH 


DJG1 


LOADBASE 


IJBLNK 


*HF4 


FBRBSY1 


IJEINL 


JBA1 


LOGMSG 


IJBLNK 


ADB2 


FCHRLD 


IJBHAP 


FDE5 


LSETB 


IJBLNK 


ABG2 


PCLRLOOP 


IJBINL 


JDD1 


LTCDAD 


IJBLNK 


ABA4 


FCLBNMAX 


IJEINL 


JDD2 


LTCDNO 


IJBLNK 


ABJ2 


FDISKIO 


IJBLNK 


AGF1 


LTCDRF 


IJBLNK 


ABB4 


F INC LOP 


IJECTH 


DJE3 


LTESID 


IJBLNK 


ABC2 


FINDEL 


IJBSCN 


DEE3 








FINDND 


IJBSCN 


DBJ3 


MAINFLOW 


IJBINL 


JEB5 


FINPRO 


IJBCTL 


ECG3 


MAPCST 


IJBMAP 


FBH2 


FIRSTPH 


IJECTL 


EAB2 


KAPHAS 


IJBMAP 


FBE5 


FLDUMPH 


IJBFIN 


KBA2 


HAPHNH 


IJBMAP 


FBH1 


FLINIT 


IJEFIN 


KBE3 


HAPLDR 


IJBMAP 


FCF2 


FLNEST 


IJBFIN 


KBB5 


HOREBLK 


IJBCTL 


EEG2 


FLNRETI 


IJBINL 


JCCH 


HOVENTftY 


IJBCTL 


EAE1 
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Label 


CSECT 


Location 


Label 


CSECT 


Location 


MOVPER 


IJECTH 


CFJ1 


BESET 


IJBSCN 


CEC3 








RETCHABK 


IJBFIN 


KAG<4 


NDESLP 


IJEINK 


AJH1 


BETOUR 


IJBINL 


JCE5 


NEWPHS 


IJECTL 


EFE3 


RETURN 


IJBCAT 


HBB1 


NEWPHSS 


IJECTL 


EFL3 


RLADCN 


IJBRLE 


GCB3 


NEXTOPER 


IJEINL 


JCD3 


ELBOPEN 


IJBINL 


JBCM 


NEXTOPT 


IJESCN 


DFG3 


RLBYWR 


IJBOTH 


CEG2 


NOAUTOCHK 


IJESCN 


DFL2 


ELCTER 


IJBRLE 


GBE2 


NOFL'TPT 


IJECTL 


EBH1 


RLDCLEAR 


IJBCTL 


EFH.3 


NOSCAGAN 


IJECTL 


ECE2 


BLECMN 


IJBBLD 


GEG3 


NOSTAT 


IJECAT 


HBJ1 


RLDCON 


IJBRLD 


GCA1 


NOTACT 


IJEINL 


JCD5 


FLDOP 


IJERLE 


GAE3 


NOTCTL 


IJEINK 


AJB1 


RLDOR 


IJBRLD 


GBB1 


NOTF 


IJECTL 


EEC2 


BLDPRC 


IJBOTH 


CEE1 


NOTRFR 


IJEMAP 


FAE5 


RLDPRC3 


IJBRLD 


GEB1 


NOT1ST 


IJECTL 


EAB4 


FLDRAG 


IJBRLD 


GAA2 


NTABS 


IJESCN 


DDA3 


RLDRET 


IJBRLD 


GAD2 


NTESLP 


IJEINK 


AJF1 


ELDSW1 


IJBRLD 


GAH2 


NTROOT 


IJECTL 


EBA1 


RLDSW2 


IJBRLD 


GBD3 


NXTCARD 


IJEINI 


JCA1 


BLDSW3 


IJBRLD 


GCC1 








BLDSW4 


IJBRLD 


GCE3 


OTHINC 


IJECTH 


CAA5 


RLRET 


IJBOTH 


CEEl 


OTHTFR 


IJECTH 


CAF3 


Rl^STP 


IJBOTH 


CDB4 


OTHTYP 


IJECTH 


CAE3 


BLSW1 


IJBOTH 


CDH1 


OVRLSW 


IJEMAP 


FDD1 


RLWRIT 


IJBOTH 


CEA2 








BNXTRN 


IJBBLD 


GEE3 


PBDYCHK 


IJESCN 


DFF2 


ROTSID 


IJBRLD 


GCC4 


PCILYES 


IJEINL 


JEE1 








PHADMD 


IJEMAP 


FBA1 


SAVCTL 


IJBSCN 


DBB5 


PHCEXIT 


IJESCN 


DFH3 


SAVCTL1 


IJBSCN 


EEJ5 


PHCOPTN 


IJESCN 


DFB2 


SCAGAN 


IJBCTL 


ECG2 


PHCRD 


IJESCN 


DCA1 


SCAN 


IJBMAP 


FEJ2 


PHCRD1 


IJESCN 


DCG1 


SCANCD 


IJBCAT 


HAE1 


PHSCAN 


IJEMAP 


FBC5 


SEEBLK 


IJBSCN 


DAE3 


PHSPRC 


IJECTL 


EAF1 


SFLFRLC 


IJBMAP 


FBE2 


PHSTOR 


IJEMAP 


FAJ2 


SETPHS 


IJBCTL 


ECB5 


PHXADD 


IJECTL 


EDD1 


SETUPSCN 


IJBOTH 


CAC3 


PRERR 


IJEINK 


AJca 


SKIPB 


IJBSCN 


EEE1 


PREXTN 


IJEMAP 


FDB1 


SONOMN 


IJBMAP 


FAF1 


PRINT 


IJEINK 


AEE1 


SPACE1 


IJBLNK 


ADE3 


PRSDPC 


IJEESE 


BCC1 


SRCHCD 


IJBLNK 


&CB2 


PRTLINE 


IJEINK 


ADF1 


SRLABL 


IJBLNK 


*CC2 


PRTLST 


IJEINK 


AEE4 


SFPCOD 


IJBLNK 


ACE2 


PS3SW2 


IJERLE 


GAF4 


STORR5 


IJBSCN 


DDE2 


PS3SW4 


IJEFIL 


GAH4 


STRLD 


IJBCTL 


EEE4 








STRTBLD 


IJBCAT 


HAF2 


QUAPRO 


IJESCN 


DDA5 


SUBMOD 


IJBSCN 


EEH1 








SVACHK 


IJBSCN 


DFE2 


RADD4 


IJEFIL 


GAG2 


SYMBORG 


IJBCTL 


EBE1 


RDALSW 


IJBINK 


AHD1 


SYSLIB 


IJBSCN 


DGE3 


RDEXEC 


IJEINK 


AHC3 


SYSREST 


IJBINL 


J ACM 


RDNEXT 


IJEINK 


AHE1 








RDOK01 


ijebie 


GGG1 


TAPE01 


IJBINL 


JAH3 


RDSF01 


IJEFLD 


GGF3 


TERSXY 


IJBMAP 


FDD3 


RDS000 


IJEINK 


AAB1 


TISDISK 


IJBBLD 


GGC2 


RDS001 


IJERLE 


GGE1 


TISESD 


IJBLNK 


AJE2 


READCl 


IJEINK 


AGE1 


TFYROT 


IJBM*P 


FBE1 


READLST 


IJERLE 


GDB4 


TSTCNT 


IJBRLD 


GDD1 


RECFOO 


IJEINK 


AAC3 


TSTESD 


IJBOTH 


CFH1 


RELOC 


IJEMAP 


FBF2 


TSTLIM 


IJBSCN 


DDF1 


RELROUT 


IJERIE 


GDC2 


TSTNEG 


IJBSCN 


EDC2 


REPF01 


IJERLE 


GGB5 


TSTRLD 


IJBRLD 


GEB3 


REPROC 


IJECTH 


CCE2 


TSTRLDXX 


IJBRLD 


GEA2 


REPTXT 


IJEOTH 


CCC3 


TSTUNR 


IJBRLD 


GDA1 


REP001 


IJEFIL 


GGE4 


TXTALL 


IJBOTH 


CEGM 


RESDCN 


IJEFLC 


GCC5 


TXTGET 


IJBOTH 


CBB3 
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Label 


CSECT 


Location 


TXTPRC 


IJBOTH 


CBB1 


TYPEVB 


IJEINK 


age a 


UNRSPC 


IJEMAP 


FDH3 


UPDATE 


IJESCN 


DEE5 


UPDCOM 


IJBCAT 


HEC3 


UPDDIR 


IJECAT 


HAB4 


UPDSKAD 


IJELNK 


AEG3 


UPNDS 


IJBOTH 


CAJ1 


USESYS 


IJEINI 


JBG1 


VALIDFN 


IJEINL 


JAD1 


VEBLOP 


IJEBLE 


GEE1 


VERLOP 


I J ERIE 


GFE1 


WHATNOW 


IJBCTL 


EFB1 


WRLST 


IJEBLE 


GFA1 


WRSF01 


IJBOTH 


CHB4 


WRST01 


IJECTH 


CHA2 


WRS001 


IJEOTH 


CHB1 


WRTRFfi 


XJECTI 


EEG1 


XTPHGT 


IJEINK 


AFE1 


XTPHNO 


IJEINK 


AFE1 
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APPENDIX B: PHASE TO MODULE CROSS BEFEEENCE 



Phase : M o d u 1 e : 
SLNKEDT IJBLE1 
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APPENDIX C: ERROR MESSAGES CROSS REFERENCE 



Message CSECT 



Chart 



21001 


IJBOTH 


CA 




21011 


IJBSCN 


DA 




21021 


IJBLNK 


AC 






IJBSCN 


DD 




21101 


IJBSCN 


DA 




21111 


IJBSCN 


DA 




21121 


IJBSCN 


DA 






IJBINL 


JC 




21131 


IJBOTH 


CC 






IJBINL 


JC 






IJBSCN 


DE 




21141 


IJBSCN 


DA 




21161 


IJBSCN 


DA 






IJBLNK 


AH 




21171 


IJBSCN 


DA 




21201 


IJBCTL 


EA 




21211 


IJBSCN 


DC 




21221 


IJBCTL 


EB 




21231 


IJBCTL 


ED 




21241 


IJBCTL 


EB, 


EC 


2125J 


IJBSCN 


DC 




21301 


IJBSCN 


DG 




21311 


IJBSCN 


DG 




21321 


IJBSCN 


DG 




21331 


IJBSCN 


DB 




21351 


IJBINL 


JC, 


JD 


21361 


IJBINL 


JC, 


JD 


21371 


IJBINL 


JC, 


JD 


21401 


IJBESD 


BB, 


BD 


21411 


IJBESD 


BF 





Message 


CSECT 


Chart 


21421 


IJBESD 


EB 




21431 


IJBESD 


BD, 


BE 


21441 


IJBLNK 


AB, 


AF 


21451 


IJBESD 


BC 




21461 


IJBESD 


BD 




21471 


IJBOTH 


CG 




21501 


IJELNK 


AK 






IJBOTH 


CB 




21511 


IJEOTH 


CC 




21551 


IJBOTH 


CD 




21561 


IJEOTH 


CE 




21581 


IJBOTH 


CG 




21601 


IJBCTL 


EF 




21611 


IJBSCN 


DF 




21701 


IJEOTH 


CB, 


CD, CF 


21811 


IJBCTL 


EA, 


EC 


21621 


IJECTL 


EF 




21841 


IJBINL 


JB 




21851 


IJBMAP 


FD 




21861 


IJBCAT 


HA 




21901 


IJBINL 


JA 




21911 


IJBOTH 


CH 






IJEINL 


JA 




21921 


IJBCAT 


HA 




2193J 


IJELNK 


AK 




21941 


IJBLNK 


AG 




21951 


IJBINL 


JE 




21971 


IJBLNK 


AG 




21991 


IJBMAP 


FD 
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APPENDIX D: SYSTEM RESIDENCE ORGANIZATION 







Starting Disk Address 


Number 
of Tracks 
(Alloc.) 


R = Required 
O = Optional 




CC 


HH 


R. 


IPL Record 


(Phase $$A$IPL1) 


qo 


00 


1 


1 


R 


IPL Record 


00 


00 


2 


R 


System Volume Label 


00 


00 


3 


R 


User Volume Label 


00 


00 


4 


O 


System Directory 


Record 1 


00 


01 


1 


1 


R 


Record 2 


00 


01 


2 


R 


Record 3 


00 


01 


3 


R 


Record 4 


00 


01 


4 


R 


IPL Records (Phase $$A$PLBK) 


00 


01 


5 


R 


Core Image Directory 


Cataloged Phases 


00 


02 




* 


R 


Linked Phase 


Core Image Library Members 


X 


Y+1 




* 


R 


Relocatable Directory 


Z+1 


00 




* 


O 


Relocatable Library Members 


X 


Y+1 




* 


O 


Source Statement Directory 


Z+1 


00 




* 


O 


Source Statement Library Members 


X 


Y+1 




* 


O 


Procedure Directory 


Z+1 


00 




* 


O 


Procedure Library Members 


X 


Y+1 




* 


O 


Label Information Area 


Z+1 


00 




Device 
dependent 


R 



* Allocation Dependent on User Requirements 
X = Ending CC of the Preceding Directory 
Y = Ending HH of the Preceding Directory 
Z = Ending CC of the Preceding Library 



Figure 12. System Residence Organization on CKD 
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Component 


Starting Disk Address 
Block Number 


Number of 
Blocks 


R=Required 
0=Optional 


IPL Records 
(Phase $SA$IPLO) 





1 


R 


System Volume Label 1 


1 


1 


R 


System Directory 


2 


1 


R 


IPL Retrieval Program 
(Phase $$A$PLBF) 


3 


7 


R 


Core Image Directory 


10 


* 


R 


Core Image Library 
Members 


X+1 


* 


R 


Relocatable Directory 


Y+1 


* 





Relocatable Library 
Members 


X+1 


» 





Source Statement Directory 


Y+1 


* 





Source Statement Library 
Members 


X+1 


* 





Procedure Directory 


Y+1 


* 





Procedure Library Members 


X+1 


* 





Label Information Area 


Y+1 


200 2 


R 



* = Allocation dependent on user requirements 
X = Last block of preceding directory 
Y = Last block of preceding library 

1 Optional user volume labels if written will be in the same block following the 
system volume label. 

2 Using the Restore program you may allocate a label information area different 
than the default size of 200 blocks. 

Figure 13. System Residence Organization on FEA 
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Notes to Figure 12 



The disk device can be an IBM 2314, an IBM 2319 or an IBM 
3333/333C/3330-1 1/3340/3350. The organization of SYSRES is 
as follows: 



IPL 



System Volume Label 



This area contains the initial program load (IPL) bootstrap 
program, which causes the IPL retrieval program to be read 
from SYSRES and loaded into real storage. 

The volume label (VOL1 label) contains the address of the 
volume table of contents (VTOC) established when the pack 
was initialized. 



User Volume Label 



System Directory 



Core Image Directory 



Core Image Library 



The user volume label area is provided for any additional 
standard volume labels (VOL2-VOL8 labels) . This area can 
extend from record 4 through the end of track 0. 

This area contains the system (master) directory. Record 
contains the location of the core image directory and the 
address cf the label information area • Records 2, 3, 
and 4 contain the starting addresses of the relocatable 
directory, source statement directory, and procedure 
directory, respectively. Record 5 contains the IPL 
retrieval program. 
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cnsists of two or more tracks, depending on 
pecitied by the user. The directory is in 
irst is the directory of cataloged phases; 
e directory of linked phases, 
ntry describes one phase in the core image 
ains such information as the phase name, 

number of blocks, type of phase, entry 
disk address in the core image library, and 
xt bytes in the last block. The entries 
phanumeric sequence, 
in the directory is called the library 

This contains such informations as the 
ory tracks, library cylinders, active 
y blocks available, and library blocks 

h varying from 14 bytes 
ications in the PHASE 
blocks of 256 bytes, 
hase name in the block. 



entries have a lengt 
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ries are grouped in 
ey for the highest p 



The core image library consists of one or more complete 
cylinders, depending on the allocation specified by the 
user. 



Relocatable Directory 



Relocatable Library 



This directory consists of one or more tracks, depending on 
the allocation specified by the user. It contains two 
types of information: 

1. System directory information for the relocatable 
directory and library. This information occupies the 
first five entries of the first record in the 
relocatable directory. 

2. An entry that describes each module (the output of a 
complete language translator run) in the relocatable 
library and contains: the module name, total number of 
text-record blocks required to contain this module, 
starting disk address of the first text-record of this 
module, and change level identification. 

The relocatable library consists of one or more complete 
cylinders, depending on the allocation specified by the 
user. The number or modules and the size of each module to 
be contained in this library dictate the number of tracks 
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that roust te allocated. 



Source Statement Directory 



This directory consists of one or more tracks, depending on 
the allocation specified by the user. It contains two types 
of information: 



System directory information for the source statement 
directory and library. This information occupies the 
first five entries of the first record in the source 
statement directory. 

An entry that describes each book (a sequence of source 
language statements in a compressed card image format, 
accessed by a single name) in the source statement 
library and contains: a sublibrary prefix, the book 
name, starting disk address of the first block of this 
bock, total number of blocks required to contain this 
book in the source statement library, and change level 
information. 



Source Statement Library 



The source statement library consists of one or more 
complete cylinders depending on the allocation specified by 
the user. The number of blocks and the size of each book 
to be contained in this library dictates the number of 
tracks that must be allocated. 



Procedure Directory 



Procedure Library 



Label Information Area 



Volume Table of Contents 



This directory consists of one or more tracks depending on 
the allocation specified by the user. It contains two 
types of information: 

1. System directory information for the procedure 
directory and procedure library. This information 
occupies the first five entries of the first record in 
the procedure library. 

2. An entry that describes each procedure (a set of 
control statements in card image format) catalogued in 
the procedure library and contains: the name of the 
procedure, the starting disk address of the procedure, 
the number of blocks occupied in the procedure library 
and a version and modification level. 

The procedure library consists of one or more complete 
cylinders, depending on the allocation specified by the 
user. Each procedure consists of one or more consecutive 
80-byte blocks, containing control statements (one card 
image per block) . 

The label information area contains standard, partition 
standard, and user label information tor all partitions. 
This area is allocated 2 cylinders on the 
3333/3330/3330-11, 2 cylinders on the 2314/2319, 3 
cylinders en the 33<J0, or 1 cylinder on the 3350. Job 
Control stores label information found in job control 
statements here. The label information area follows the 
last library and ends the SYSBES file. 

Following the label information area , the use of the 
remaining areas en the disk pack is left to the user's 
discretion. However, the volume table of contents (VTOC) 
must be contained on the same physical disk pack as the 
SYSBES file. (A VTOC is required on every disk pack.) The 
VTOC is most frequently the last cylinder before the 
alternate track area. The location and length of the VTCC 
are determined when the pack is initialized. 

The VTCC is a file describing the organization of the disk 
pack. It contains the VTOC identifier (format a label) 



Appendix D: System Besidence Organization 113 



that contains the starting and ending addresses of the 
VTOC, a format 5 label that is not used by DOS/VS, and 
format 1, 2, and 3 labels that identify and describe all 
files en the pack. More specific information on label 
formats is contained in the DOS/VS DASD Labels # GC33-5375. 

Alternate SYSRES Layout The relocatable library, the source statement library, and 

the procedure library are shown as optional areas of the 
SYSRES tile because these libraries are not essential tor 
system operation. If desired, the relocatable and source 
statement libraries can be defined as private libraries; a 
private library for the procedure library is not supported. 
A private core image library can also be defined, but the 
system core image library must always be included on the 
SYSfiES tile. 
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APPENDIX £: LINKAGE EDITOH ESD PROCESSING 



ISIrlJOCESSING 

1. For each ESD item produced by a 
language translator, an input control 
dictionary entry is built at a tixed 
location in storage. In seme cases 
this input control dictionary entry 
will be moved to the control dictionary 
during processing. 

2. The input ESD type tield is validated. 

• If it is a weak external, the ESD 
type field in the input control 
dictionary entry is set to Efi and 
the NOAUTOL and WXTflN tits in 
CSWITCH are turned on. 

• If it is invalid, an error 
condition exists, the whole ESD 
card is ignored, and the next ESD 
card is processed. 

3. Further pre-processing depends on the 
input ESD type. 
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For EK ESD input 

If NOAUTO has been requested for 
the phase being processed, the 
NOAUTOL bit in CSWITCH is set on. 
Otherwise, CSWITCH remains oft. 

For SD or PC ESD input 
Requirements: 

(1) The assembled origin must be 
alijned on a double word 
boundary . 

(2) PC must be unnamed. 

The relocation factor is calculated 
by subtracting the assembled origin 
from the storage address (NXPHHG) . 

For a normal INCLUDE the 
pre-processing is finished at this 
stage. 

For a submodular INCLUDE the name 
list of included CSECls is scanned 
for a name identical to the name of 
the input control dictionary entry. 
If the names match, pre-processing 
is finished. If not, the ESD type 
field in the input control 
dictionary entry is changed to EH 
and a switch is set to ensure that 
th*e control dictionary number in 
the linkage table is given a 
negative value. 

Note: A negative control dictionary 
number in the linkage table entry 
is a signal for the ESD processor 
to ignore LDs belonging to this 
section definition, and for the 
text processor to ignore the 
corresponding text cards. 



EECCJSSING 

1 . The control dictionary is scanned tor 
an entry with the same name as the 
input ESD item. 

This scan starts at the end of the 
control dictionary and proceeds towards 
the beginning until either a match 
occurs or the beginning of the control 
dictionary is reached. If a match 
occurs, the control dictionary entry is 
called a duplicate. 

The scan continues if the duplicate is 
a phase entry. 
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4. 



If no duplicate is found, the input 
control dictionary entry is added to 
the end of the control dictionary. 

If the input ESD is an SD, PC, CM, or 
ER, an entry is made in the linkage 
table. 

If a duplicate was found, the action 
taken by the ESD processor depends on 
the relationship between input and 
duplicate. Use Figures 14 - 18 to 
determine the different actions taken 



by the ESD processor. 
A summary of all possible 
processing actions is sho 
The actions are named AT 
To find out the appropria 
taken during input proces 
ER, SD, or LD use Fig. 15 
respectively. The upper 
figures shows the various 
which exist (Y) , not exis 
be ignored (-) , while the 
indicates the actions tak 



ESD 
wn in Fig. 14. 
- Err-46. 
te action (s) 
sing of CM, 
, 16, 17, 18 
part of these 

conditions 
t (N) , or can 

lower part 
en (X) . 



Name | Description 



A1 
A2 

A3 

A4* 

A5* 

A6 
A7 

A8 

A9 

A10 
A11 

Err- 

Err- 

Err- 



■40 
■43 
■46 



Ignore 
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trol d 

Replac 
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Contin 
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Save I 
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Change 
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Print 

go to 

Print 
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Print 
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input control dictic- 
ntry . 

put control dictionary 
to the end of the con- 
ictionary . 

e duplicate with the 
control dictionary entry, 
e linkage table entry 
ng to the last entry 
to the control dictio- 

e linkage table entry 
ng to the duplicate, 
duplicate LE to LB. 
ue scan of the control 
nary. 

ength of longest CM in 
ntrol dictionary, 
ontrol dictionary ^number 
kage table a negative 

input LD to LR. 
ossible Duplicate Entry 1 

error message • 2140I 1 and 

RDNEXT. 

error message • 2 1 ^131 • and 

RDNEXT. 

error message ■ 214.61' and 

RDNEXT. 



If a submodular INCLUDE was used and 
the name list of included SDs does not 
contain an SD, the control dictionary 
number in the linkage table is given 
a negative value. 



Figure 14. ESD Processing Action* 
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* SD is to be considered assigned 

Note: Weak externals are processed like ERs for which NCAUTO is requested, 

Figure 16. Process Input EB 
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Figure 17. Process Input SD 
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'* Action A3 is performed retaining the ESD type of the Duplicate 
** SD is to be considered assigned 



Figure 18. Process Input LD 



POST-PROCESSING 

• For ER, LD/LR, or CM ESD input the next 
ESD item is selected for processing. 

• For SD or PC ESD input 

1. The control dictionary is scanned 
for unassigned LDs or LRs pointing 
to the input item. 

2. The control dictionary entries 
found during the previous scan are 
updated. This is done by storing 



in the control dictionary entry the 
control dictionary number found in 
the linkage table entry (that 
corresponds to the input item) . 

The storage address (NXPHRG) is 
updated by adding the length of the 
control section to it. 

N2i§ : *f the length of the control 
section is provided in the END 
card, CSECT IJBOTH performs action 

3. 
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APPENDIX F: LINKAGE EDITOR MAP 



For a detailed description of the Linkage Editor Map refer to: 
DOS/VS Serviceability Aids and Debugging Procedures, GC33-5380. 



Input List 

06/28/77 



| JOB NO NAME 


| ACTION 


TAKEN 


| LIST 


INCLU 


| LIST 


PHASE 


| LIST 


INCLU 


| LIST 


INCLU 


| LIST 


INCLU 


| LIST 


PHASE 


| LIST 
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| LIST 


PHASE 


| LIST 
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| LIST 


PHASE 


| LIST 
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[ LIST 


PHASE 


| LIST 


INCLU 


| LIST 


PHASE 


| LIST 


INCLU 


| LIST 


PHASE 


| LIST 


INCLU 


| LIST 


PHASE 


| LIST 


INCLU 


| LIST 


PHASE 


| LIST 


INCLU 


| LIST 


PHASE 


| LIST 


INCLU 


I LIST 


PHASE 


| LIST 


INCLU 


| LIST 

1 1 
i i 


ENTRY 


1 1 
1 1 

1 v 





LINKAGE EDITOR DIAGNOSTIC OF INPUT 



MAP REL 
DE IJBSL1 

DSERV,*,NOAUTO 
DE FBAEXCP 
DE IJJCPDV1 
DE , (IJBDS050) 

DSERVC,*, NOAUTC 
DE , (IJBDSC) 

DSERVF,*,NOAUTO 
DE , (IJBDSF) 

DSERV1,*, NOAUTC 
DE , (IJBDS141) 

DSERV2,DSERV1,N0AUT0 
DE , (IJBDS250) 

DSERV2F,DSERV1,N0AUT0 
DE ,(IJBDS25F) 

DSERV3,DSERV1,N0AUT0 
DE , (IJBDS350) 

DSERVa,DSERVl,NCAUTO 
DE , (IJBDS450) 

DSERV5 # DSERV1,N0AUT0 
DE , (IJBDS550) 

DSERV3F,DSERV1,N0AUT0 
DE , (IJBDS35F) 

DSERV6,DSERV1,NCAUT0 
DE , (IJBDS650) 



Figure 19. Linkage Editor Map (Part 1 ot 3) 
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Format A 

r ' t 

PHASE XFR-AE LOCORE HICOBE ESK-AE ESE TYPE LABEL LOADBE BEL-FR 

ESERV 01EEEC 01C078 01E877 011 05 09 CSECT FfiA 01C078 01C07B 

* ENTRY FBAEXCP 01C088 

* ENTRY FEAOPEN 01C994 

* ENTBY FBACLOSE G1CB78 

* ENTRY LASTADDR 01C988 

* ENTBY REGSV06 01CD84 

* ENTRY CCBADDR 01CDE4 

* ENTBY CCWADDB 01CDE8 

* ENTRY REGSV7F 01CE04 

CSECT IJJCPDV1 01DBE0 01DBEO 

ENTRY IJJCPDV2 01JDBE0 

CSECT IJBDS050 01DEA8 003808 

* ENTRY R356U 01DEB2 
ENTRY IJJCPD3 01E360 

DSERVC 01E878 01E878 01EBD9 011 06 09 CSECT IJBDSC Q1E878 003808 

ESERVF 01EBE0 OTEBEO 01EE73 011 06 OA CSECT IJEDSF 01EBE0 003808 

ESERV1 01EE78 01EE78 01F9FF 011 06 OE CSECT IJBDSHI1 01EE78 003808 

* ENTRY STATTAB 01F9AE 

ESERV2 01EE78 0-1EE78 01F7BF 011 07 03 CSECT IJBDS250 01EE78 002C80 

ESERV2F 01EE78 01EE78 01FDDF 011 07 06 CSECT IJBDS25F 01EE78 00233b 

ESERV3 01EE78 01EE78 01F2FF 011 07 OA CSECT IJBDS350 01EE78 0013DO 

ESERV4 0TEE78 01.EE78 01F25F 011 08 01 CSECT IJBDS450 01EE78 000F48 

ESERV5 01EE78 01EE78 01F16F 011 08 02 CSECT IJBDS550 01EE78 000B6O 

ESERV3F 01EE78- 01EE78 01FC5F 011 08 03 CSECT IJBDS35F 01EE78 000868 

ESERV6 01EE78 01EE78 01F21F 011 08 07 CSECT IJBDS650 01EE7.8 000580 

Format A appears as the Linkage Editor Map if Core Image Library on CKD. 
ESK-AE contains CCC HH BR in hexadecimal format. 

Figure 19. Linkage Editor Map (Part 2 of 3) 
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Format B 


















r 

| PHASE 


XFR-AD 


LOCORE 


HICORE 


ESK-AE 


ESE TYPE 


LABEL 


LOADEB 


BEL-FB | 


| DSERV 


01EB84 


01E878 


01F49F 


000C6209 


CSECT 

ENTRY 

CSECT 
*. ENTRY 
ENTRY 


IJJCPDV1 
IJJCPDV2 

IJBDS050 

R356A 

IJJCPD3 


01E878 
01E878 

01EB40 
01EB4A 
01EF80 


01E878 | 
002800 I 


| DSERVC 


01F4A0 


01F4A0 


01F7D9 


0CC06217 


CSECT 


IJBDSC 


01F4A0 


002800 | 


| DSERVF 


01F7E0 


01F7E0 


01FA7B 


00006219 


CSECT 


IJBDSF 


01F7E0 


002800 | 


| DSERV1 


01FA80 


01FA80 


02C58F 


00006221 


CSECT 

* ENTRY 


IJBDS141 
STATTAB 


01FA80 
02053E 


002800 | 


| DSERV2 


01FA80 


01FA80 


0203C7 


00006227 


CSECT 


IJBDS250 


01FA80 


001CF0 I 


| DSERV2F 


01FA80 


01FA80 


02C997 


00006233 


CSECT 


IJBDS25F 


01FA80 


0013A8 | 


| DSERV3 


01FA80 


01FA80 


01FF07 


00006241 


CSECT 


IJBDS350 


01FA80 


000490 | 


| ESERV4 


01FA80 


01FA80 


01FE7F 


00006245 


CSECT 


IJBDS450 


01FA80 


000008 | 


| ESERV5 


01FA80 


01FA80 


01FD77 


00006247 


CSECT 


IJBDS550 


01FA80 


-0003F8 | 


| DSERV3F 


01FA80 


01FA80 


02085F 


00006249 


CSECT 


IJBDS35F 


01FA80 


-0006F0 | 


| ESERV6 

L— — — — — — -.-. — — 


01FA80 


01FA80 


01FE47 


00006257 


CSECT 


IJBDS650 


01FA80 


-0014D0 | 

_ — ___... — — j 


Format B ap 


pears as 


the Linkage Editor Map of 


Core Imac 


|e Library 


on FBA. 





ESR-AD contains block number in decimal format. 



Figure 19. Linkage Editor Map (Part 3 of 3) 
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